Question

Помогите пж
1. Заполнить массив семью элементами (ввод элементов производится случайным образом). Вывести этот массив в строку виде A[1]=..., A[2]=.....

2. Вычислить сумму первого, третьего и последнего элемента массива, если п-(колнчество элементов и сами элементы массива вводится с клавиатуры.

3. Дан массив из N элементов. Элементы массива задаются случайным образом из диапазона (-20:20). Определить, количество элементов, которые меньше 5.

Answer 1

Ответ:

1.

program z1;

var i:integer;

A:array [1..7] of integer;

begin

for i:=1 to 7 do

begin

A[i]:=random(10);

if i<>7 then write('A[',i,']=',A[i],', ')

else write('A[',i,']=',A[i])

end

end.

2.

program z2;

var i,n:integer;

A:array [1..1000] of integer;

begin

read(n);

for i:=1 to n do read(A[i]);

write(A[1]+A[3]+A[n])

end.

3.

program z3;

var i,n,k:integer;

A:array [1..1000] of integer;

begin

k:=0;

read(n);

for i:=1 to n do

begin

A[i]:=random(-20,20);

write(A[i],' ');

if A[i]<5 then k:=k+1

end;

writeln();

write(k)

end.