7. Дан массив, количество элементов в котором неизвестно,
Элементы вводятся до тех пор, пока не будет введено число
О. Сколько из введенных элементов оканчиваются на 5?
Выведите на экран эти элементы.
(Пример: ввод: 2, 5, -6, 4, -9, 15, 0; вывод: 2, 5, 15)
A:array[1..12] of integer;
i:integer;
Begin
Write('Исходный массив: ');
For i:= 1 to 12 do
Begin
A[i]:=random(21)-10;
Write(A[i],' ');
End;
WriteLn;
Write('Чётные элементы: ');
For i:= 1 to 12 do
if A[i] mod 2 = 0 then Write(A[i],' ')
End.
Var A:array[1..10] of integer;
i:integer;
Begin
Write('Исходный массив: ');
For i:= 1 to 10 do
Begin
A[i]:=random(21)-10;
Write(A[i],' ');
End;
WriteLn;
Write('Обработаный массив: ');
For i:= 1 to 10 do
Begin
if A[i] mod 10 = 0 then A[i]:=0;
Write(A[i],' ')
End;
End.