ВН
Владимир Новосельцев
Pascal: задан числовой массив, состоящий из n элементов n>=100
написать функцию определяющую количество нечетных положительных элементов с четным номером.
\\ Pascal
написать функцию определяющую количество нечетных положительных элементов с четным номером.
\\ Pascal
const N=10;
var
i,ch:integer;
A:array [1..n] of integer;
Begin
For i:=1 to N do BEGIN
A[i]:=Random(99)+1;
Write(A[i],' ');
END;
Write('Нечетные: ');
For i:=1 to N do BEGIN
if (A[i] mod 2 = 1) and (i mod 2 = 0) then Write(i, '. ', A[i],' ');
END;
WRITELN;
End.
UPD поправил, мейл все скобки перевел куда-то