ДАЮ МНОГО БАЛЛОВ!!!!!!!
Массив содержит значения отметок 12 учащихся класса за сам. работу. На дополнительном занятии учащиеся переписали работу и получили отметки на балл выше (кроме тех, кто получил 10). Составить программу, которая выводит отметки, полученные учениками первоначально и после работы над ошибками
Массив содержит значения отметок 12 учащихся класса за сам. работу. На дополнительном занятии учащиеся переписали работу и получили отметки на балл выше (кроме тех, кто получил 10). Составить программу, которая выводит отметки, полученные учениками первоначально и после работы над ошибками
More Questions From This User See All
Answers & Comments
Ответ:
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