1. Составьте программу...

1. Составьте программу ввода и вывода массива: 5, -3, 4, -8, -9, 1, 9, 6, -3, 4, 8, 2. 2. Составьте блок-схему алгоритма и программу вычисления вмассиве A(10) количества нечетных элементов.

 

1)
var a:array[1..12] of integer;
i,n,r:integer;
begin
n:=12;
a[1]:=5; a[7]:=9;
a[2]:=-3; a[8]:=6;
a[3]:=4; a[9]:=-3;
a[4]:=-8; a[10]:=4;
a[5]:=-9; a[11]:=8;
a[6]:=1; a[12]:=2;
for i:=1 to n do begin
writeln('Massiv a[',i,'] ', a);
end;
end.
 
2)
var a:array [1..10] of integer;
i, n,k:integer;
begin
k:=0;
for i:=1 to 10 do
begin
write('a[',i,']:=');
readln(a);
if not odd(a) then
k:=k+1;
end;
writeln('Kolichestvo ne4etnix elementov - ', k);
end.