Задача 3 Урок 15
Primary tabs
У вас есть массив:
type myArr = array[1..8] of integer; var a: myArr;-- целочисленный из 8 элементов.
Пользователь вводит любые целые числа (после каждого нажимает Enter), до тех пор пока не введет символ решетки #
Задача: сохранить в массив целые числа, которые ввел пользователь (до символа # или до окончания места в массиве) и вывести их на экран, значения неиспользованных ячеек массива выводить ненужно.
program u15z3; type myArr=array [1..8] of integer; var a: myArr; i,n: integer; b: char; begin for i:=low(a) to high(a) do begin writeln('vvedite element massiva nomer ', i, ':'); readln(b); if b='#' then break else a[i]:= ord(b)-48; //первод char в integer n:=n+1; //для вывода нужного кол-ва символов end; for i:=1 to n do write(a[i], ' '); readln(); end.
- Log in to post comments
- 268 reads