Предмет: Информатика,
автор: Alena100499
Проверьте паскаль, где ошибка???
Не понимаю, как сумму сделать
var a:array [1..6] of integer;
i:integer;
sum:integer;
begin
sum:=0;
for i:=1 to 6 do
begin
readln(a[ i ]);
sum:=sum+a[ i ];
end;
if (a[i]>9) and (a[i]<100) and (a[i]<0) and (a[i] mod 5=0) then writeln(sum);
end.
Ответы
Автор ответа:
0
Решение вложено.
-------------------------------------------
-------------------------------------------
Приложения:
Автор ответа:
0
Спасибоо)
Похожие вопросы
Предмет: Русский язык,
автор: kucarvalentina900
Предмет: Оʻzbek tili,
автор: nafisatp2007
Предмет: Алгебра,
автор: ayulym008
Предмет: Математика,
автор: Аноним