Регистрация
lao1205
12.11.2022 10:51
Информатика
Есть ответ 👍

Задание по блок схемам

288
404
Посмотреть ответы 1

Ответы на вопрос:

vladvladc
vladvladc
4,4(13 оценок)

program mas;

var a: array[1..4,1..6] of integer;

i, j: integer;

summ: integer;

id: integer;

begin

randomize;

for i : = 1 to 4 do

begin

for j : = 1 to 6 do

begin

a[i, j] : = random(30) + 45;

write(a[i,j]);

write(' ');

end;

writeln('');

end;

for j : = 1 to 6 do

begin

for i : = 1 to 4 do

begin

summ : = summ +a[i, j];

end;

writeln(summ / 4);

summ : = 0;

end;

readln;

end.

Популярно: Информатика