Массив содержит значения отметок 12 учащихся класса - вопрос №2069031312 от Anastasiay80 28.05.2020 01:53

Question

Информатика: Массив содержит значения отметок 12 учащихся класса за сам. работу. На дополнительном занятии учащиеся переписали работу и получили отметки на выше (кроме тех, кто получил 10). Составить программу, которая выводит отметки, полученные учениками первоначально и после работы над ошибками

Anastasiay80 · Answer

var

i: integer;

a: array [1..12] of integer;

begin

for i := 1 to 12 do

readln(a[i]);

writeln ('До работы над ошибками', a);

for i := 1 to 12 do

begin

if a[i] <> 10 then

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

end;

writeln ('После работы над ошибками', a)

end.

Язык pascal abc