Массив содержит значения отметок 22 учащихся класса за контрольную работу (случайные числа от 2 до 10).После работы надо ошибками учащиеся переписали работу и получили отметки на выше (кроме тех ,кто получил 10).Составьте программу ,которая выводит отметки ,полученные учениками первоначально и после работы надо ошибками . Pascal

Ответы

krikovaluba 03.12.2021 22:10

const n = 22;

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

var k: integer;

begin

write('До переписывания:');

for var i:= 1 to n do begin

A[i] := 2 + random(9);

write(' ', A[i]);

end;

writeln;

write('После переписывания:');

for var i:= 1 to n do begin

if (A[i] <> 10) then

A[i] := A[i] + 1;

write(' ', A[i]);

end;

end.

ПОКАЗАТЬ ОТВЕТЫ

Другие вопросы по теме Информатика

Ejdncenejfjdj 14.08.2019 09:10

Kirill7692 25.09.2019 23:20

pomogitejaslomalsya 25.09.2019 23:20

aleXxxx03 23.05.2019 08:09

darkbluefox 23.05.2019 08:50

Перевести в римскую систему счисления 12 апреля 1961...

ещКеРе11 23.05.2019 08:40

апрркн1 23.05.2019 08:40

Как растения и получают информацию друг другу...

KittyClab 23.05.2019 08:40

rkzxzvty2343 23.05.2019 08:40

Den4ikPlz 13.06.2019 06:40