Проверьте паскаль, где ошибка??? Не понимаю, как сумму сделать 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.

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Проверьте паскаль, где ошибка??? Не понимаю, как сумму сделать 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.» от пользователя Гуля Кравцова в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.