Заполнить массив из 10 элементов случайными числами в интервале [0..100] и вывести на экран значение всех элементов ,которые оканчиваются на 5.
More Questions From This User See All
Заполнить массив из 10 элементов случайными числами в интервале [0..100] и вывести на экран значение всех элементов ,которые оканчиваются на 5.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.
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.