В Паскале написать программу

Question

В Паскале написать программу

Илья Корякин Ученик (180), закрыт 9 месяцев назад

дан массив из десяти целых чисел сгенерированных случайным образом не превосходящих 20. нужно вывести все массивы на экран, вывести элементы меньше 5, найти произведение всех элементов массива

Answer 1

var a:array[1..10]of integer; i:integer; r:real;
begin
randomize; for i:=1 to 10 do a[i]:=random(21);
for i:=1 to 10 do write(a[i],' '); writeln;
for i:=1 to 10 do if a[i]<5 then write(a[i],' '); writeln;
r:=1; for i:=1 to 10 do r:=r*a[i]; writeln(r:0:0);
end.

Answer 2

program massiv;
uses crt;
var
i,n:integer;
b:array[1..100] of integer;
BEGIN
randomize;
clrscr;
writeln;
write('Vvesti N: ');
readln(n);
writeln('Vektor B: ');
for i:=1 to n do begin
b[i]:=random(21); write(b[i]:3);
end;
writeln;
for i:=1 to n do
if b[i]<5 then write(b[i]:4);
writeln;
end.