Напишите программу нахождения суммы элементов массива а [1..15], порядковый номер которых является четным числом. массив заполняется произвольными числами в диапазоне да 100.

, вообще не понимаю как это делать

Question

Информатика: Напишите программу нахождения суммы элементов массива а [1..15], порядковый номер которых является четным числом. массив заполняется произвольными числами в диапазоне да 100. , вообще не понимаю как это делать

yanami18012016 · 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 ответил