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