Проверьте программу ** правильность написания, пожалуйся program p1; var a: array [1..5]...

Question

Проверьте программу на правильность написания, пожалуйся program p1; var a: array [1..5] of real; i:integer; s:real; begin s:=0; for i:=1 to 5 do begin write('a[',i,']='); readln(a[i]); if a[i] > 0 then s:=s+1; end; writeln; writeln('количество положительных элементов = ', s); write('элементы, имеющие нечетные индексы:'); for i:=1 to 5 do if i mod 2 <> 0 then write(' ',a[i]); end.

Answer 1

program p1;

var a: array [1..5] of real;

i:integer; s:real = 0;

begin

for i:=1 to 5 do

begin

write('a[',i,']=');

readln(a[i]);

if a[i] > 0 then s:=s+1;

end;

writeln(#13#10,'количество положительных элементов = ', s:0:1);

write('элементы, имеющие нечетные индексы:');

for i:=1 to 5 do

if i mod 2 <> 0 then write('  ',a[i]:0:1);

end.  

Вот, а так все идеально))

Answer 2

в целом программа работает. Хотя могу дать пару замечаний

индексную переменную лучше объявлять в самом цикле.

в паскале переменной не обязательно задавать стартовое нулевое значение, она и так будет равна 0.

вместо s:=s+1 можно написать s += 1

ну и отступы...

после правок будет выглядеть примерно так:

program p1;

var

   a : array [1..5] of real;

   s : real;

begin

   for var i:= 1 to 5 do

   begin

       write('a[', i, ']=');

       readln(a[i]);

       if a[i] > 0 then s += 1;

   end;

   writeln;

   writeln('количество положительных элементов = ', s);

   write('элементы, имеющие нечетные индексы:');

   for var i := 1 to 5 do if i mod 2 <> 0 then write(' ', a[i]);

end.