Дан массив из 10 элементов, заполненный случайным образом. Значения элементов от -50 до 50. Вывести на экран элементы массива, оканчивающиеся на 4 или 8. 

Дан массив из 10 элементов, заполненный случайным образом. Значения элементов от -50 до 50. Вывести на экран элементы массива, оканчивающиеся на 4 или 8. 
Гость
Ответ(ы) на вопрос:
Гость
var a: array [1..10] of integer; i, n: byte; begin Randomize; for i:=1 to 10 do  begin  a[i]:=random(100)-50;  n:=abs(a[i] mod 10);  if (n = 4) or (n = 8) then write(a[i]:4);  end; readln; end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы