Даю 50 баллов. Очень нужен ответ.
Написать программу на языке Pascal:
Дан вектор Z(11). Подсчитать количество положительных элементов, стоящих на четных местах.
Ответы
Ответ дал:
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.
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад