Дан массив из 15 элементов. Необходимо заполнить его с помощью оператора...

Question

Дан массив из 15 элементов. Необходимо заполнить его с помощью оператора присваивания(Случайными числами) И вывести все элементы массива в строку, а затем на следующий строке вывести все элементы равны 5.

Answer 1

Const n=15;

Var i:Integer ;

A:array [1..15]of Integer ;

Begin

For i:=1 to n do begin

A[i]:=random(10);

Write (' A[', i, ']=', A[i]) ;

End;

Writeln ;

For i:=1 to n do begin

If a[i]=5 then write (' A[', i, ']=', A[i]) ;

End;

End.