Найдите ошибки в программе,перепишите в исправленном виде:
var a: [1..10] of real;
i: integer;
s1: =0;
s2: =0;
for i: =1 to 5 do
if i mod 2=0 then
s1: = s1+a[i];
s2: =s2+a[i];
if s1> s2 then
write('da'); else
write('net')
read;
end.

марина1924    3   21.01.2020 14:42    0