★Девочка не поливает цветы★
10*7-12= 58
58+2=60
60/12=5
5*5=25
а - 25
b - 60
c - 5
x - 58
Не real, а read:
for i:=1 to 10 do
read(A[i]);
Сколько раз вы выводите массив?
Потому что это что-то непонятное:
for i:=1 to 10 do
writeln (A[1],' ',A[2],' ',A[3],' ',A[4],' ',A[5],' '); (10 раз выводятся первые 5 элементов(?))
writeln (A[6],' ',A[7],' ',A[8],' ',A[9],' ',A[10],' ');
Если нужно вывести массив 1 раз:
for i:=1 to 10 do
writeln (A[i],' ');
var i,s:integer;
begin
while i<>-5 do begin
readln(i);
if i mod 2=0 then s:=s+1;
end;
writeln(s);
end.