Алгоритм циклической структуры с заданным числом повторений цикла

В рабочей тетради для задачи своего варианта проработайте следующие технологические шаги:

4.1 перепишите условие задачи, тщательно изучите его;

4.2 проанализируйте состав переменных, используемых в задаче;

4.3 постройте алгоритм решения задачи, выполняя правила,

1. Вывод текста: Введите …; (перечислите через запятую имена переменных, являющихся исходными данными);

2. Ввод …; (из пункта 1 в том же порядке перечислите через запятую имена переменных, являющихся исходными данными);

3. Вычисление той переменной, в формуле для которой используются только исходные данные;

4. Вычисление очередной переменной, в формуле для которой используются только уже известные данные;

…

n-1. Постройте необходимые циклы;

n. Вычисление результата;

n + 1. Вывод пояснительного текста и значения результата.

1.

program ll1;

var A: array[1..20] of integer;

i: integer;

begin

Randomize;

for i:=1 to 20 do

begin

A[i]:=random();

if A[i] mod 2 = 0 then writeln(A[i]);

end;

end.

2 .

program ll1;

const N = 20;

var A: array[1..20, 1..20] of integer;

i, j, k: integer;

begin

for i:=1 to N do

for j:=1 to N do

begin

readln(A[i, j]);

if (A[i, j] >= 0) and (A[i, j] < 10) then

k:=k+1;

end;

writeln(k);

end.

3.

program ll1;

var A: array[1..20] of integer;

k, x, y: integer;

begin

Randomize;

readln(x);

readln(y);

for k:=1 to 20 do

begin

A[k]:=random();

if A[k] >= 0 then

A[k]:=x;

else

A[k]:=y;

end;

end.

1.

program ll1;

var A: array[1..20] of integer;

i: integer;

begin

Randomize;

for i:=1 to 20 do

begin

A[i]:=random();

if A[i] mod 2 = 0 then writeln(A[i]);

end;

end.

2 .

program ll1;

const N = 20;

var A: array[1..20, 1..20] of integer;

i, j, k: integer;

begin

for i:=1 to N do

for j:=1 to N do

begin

readln(A[i, j]);

if (A[i, j] >= 0) and (A[i, j] < 10) then

k:=k+1;

end;

writeln(k);

end.

3.

program ll1;

var A: array[1..20] of integer;

k, x, y: integer;

begin

Randomize;

readln(x);

readln(y);

for k:=1 to 20 do

begin

A[k]:=random();

if A[k] >= 0 then

A[k]:=x;

else

A[k]:=y;

end;

end.