Дан массив из 15 элементов,вывести сумму нечетных элементов.

Question

Информатика: Дан массив из 15 элементов,вывести сумму нечетных элементов.

putin12344 · Accepted Answer

2)
USES CRT;
VAR A:array[0..200] of integer;
i,max,s:integer;
BEGIN
CLRSCR;
Randomize;
Writeln('Дан массив:');
for i:=0 to 200 do
  begin
A[i]:=-100+random(150);
Write(A[i],' ');
  end;

   s:=0;
max:=A[0];

for i:=0 to 200 do
  begin
if A[i] > max then max:=A[i];
if A[i]>=0 then s:=s+1;
  end;

Writeln;
Writeln('Максимальный элемент массива = ', max);
  Writeln('Кол-во положительных элементов = ',s);
READLN;
END.

MOGZ ответил