Удобно и быстро работать получать большие деньги и подделовать фото
Ну примерно 3
1) он с первого курса?
2) он с лечебного факультета?
3) Кто он такой?
Var a: array [1..100] of real;
n, i, kol: integer;
begin
readln(n);
for i := 1 to n do
read(a[i]);
kol := 0;
for i := 1 to n do begin
if (a[i] > 0)and(i mod 2 = 0)
then kol := kol + 1;
if a[i] < 0
then a[i] :=0;
end;
writeln(kol);
<span>end.</span>
Представлю два варианта:
- С использованием PascalABC.NET
- С использованием обычного Pascal
Версия PascalABC.NET - 3.4.2, сборка 1978 (12.02.2019)