Просуммировать числа, находящиеся на чётных позициях в массиве, если они не равны -5

Alexander 1997

Задан массив Z(12). Просуммировать числа, находящиеся на чётных позициях в массиве, если они не равны -5. Найти количество таких чисел. Если число равно нулю или отрицательное, то переписать в массив X.
program z15;
 
var
  z: array [1..12] of integer;
  i, sum: integer; 
 
begin
  readln(z[1]);
  readln(z[2]);
  readln(z[3]);
  readln(z[4]);
  readln(z[5]);
  readln(z[6]);
  readln(z[7]);
  readln(z[8]);
  readln(z[9]);
  readln(z[10]);
  readln(z[11]);
  readln(z[12]);
  sum := z[2] + z[4] + z[6] + z[8] + z[10] + z[12];
  writeln(sum);
end.
1 ответ

Alexander 1997

Alexander 1997, Вы вообще не знаете, что такое циклы или Вам религия не позволяет их использовать?
program z15;
var z:array [1..12] of integer;
i,sum,k:integer;
begin
  For i:=1 to 12 do Readln(z[i]);
  sum:=0; k:=0;
  For i:=1 to 6 do
    If z[i*2]<>-5 then
    Begin
      sum:=sum+z[i*2];
      Inc(k);
    end;
  writeln (sum);
  Writeln(k);
end.