Question

Даю 50 баллов. Очень нужен ответ.
Написать программу на языке Pascal:
Дан вектор Z(11). Подсчитать количество положительных элементов, стоящих на четных местах.

Answer 1

Ответ:

pascal

Объяснение:

const n = 11;

var a: array[1..n] of integer;

   i, k: integer;

begin

 for i := 1 to n do begin

   Write('A[', i, '] = '); ReadLn(a[i]);

   if (i mod 2 = 0) and (a[i] > 0) then k := k + 1;

 end;

 WriteLn('Количество положительных элементов, стоящих на четных местах, равно ', k);

end.