Заполнить массив из 10 элементов случайными числами в интервале [0 ... 100] и вывести на экран значение всех элементов, которые оканчиваются на 5.

Question

Информатика

Илюша

4 ноября, 22:21

Заполнить массив из 10 элементов случайными числами в интервале [0 ... 100] и вывести на экран значение всех элементов, которые оканчиваются на 5.

+1

Ответы (2)

Знаете ответ?

Вовуся · Answer 1

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.

Касиния · Answer 2

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.