Заполнить массив из 10 элементов случайными числами в интервале [0..100] и вывести на экран значение всех элементов ,которые оканчиваются на 5.
Заполнить массив из 10 элементов случайными числами в интервале [0..100] и вывести на экран значение всех элементов ,которые оканчиваются на 5.
Гость
Ответ(ы) на вопрос:
ГостьP.S. Благодарность и лучший ответ не помешает.
var a,b,c,i,n:integer;
p:array[1..10000] of integer;
begin
read (a); {Размер массива}
for i:=1 to a do
p[i]:=random(99);
for i:=1 to a do
if p[i] mod 5 = 0 then write(p[i],' ');
end.
Гостьvar a: array[1..10] of integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(101);
if a[i] mod 10=5 then write(a[i], ' ');
end;
end.
Не нашли ответ?
Похожие вопросы