Задача 2 Урок 18
Primary tabs
Задача 2 Урок 181. Пользователь вводит любые целые числа (после каждого нажимает Enter), до тех пор пока не введет символ решетки #
Задача: сохранить в массив целые числа, которые ввел пользователь (до символа # или до окончания места в массиве) и вывести их на экран, значения не используемых ячеек массива выводиться не должны.
type myArr = array[1..8] of integer; var a: myArr; i : integer; intChislo, Code,b : Integer; rChislo: real; s: string; begin for i:=low(a) to high(a) do begin writeln('vvedite element massiva nomer ', i, ':'); readln(s); if s = '#' then break; Val(s, intChislo, Code); b:=intChislo; if Code=0 then a[i]:=b; end; writeln('elementi vvedennogo vami massiva:'); for i:=low(a) to high(a) do writeln(a[i], ' <-- a[', i, '] '); readln(); end.
Вывод консоли:
vvedite element massiva nomer 1: 1 vvedite element massiva nomer 2: 2 vvedite element massiva nomer 3: 3 vvedite element massiva nomer 4: 4 vvedite element massiva nomer 5: 5 vvedite element massiva nomer 6: # elementi vvedennogo vami massiva: 1 <-- a[1] 2 <-- a[2] 3 <-- a[3] 4 <-- a[4] 5 <-- a[5] 0 <-- a[6] 0 <-- a[7] 0 <-- a[8]
- Log in to post comments
- 157 reads