1) Ввод чисел в массив: program vvod_mass; var a: array[1..12] of integer; i: integer; begin for i:=1 to 12 do begin write('a[', i, ']='); readln(a[i]); end; end. 2) program otric; var a: array[1..10] of integer; i,n: integer; begin randomize; for i:=1 to 10 do begin a[i]:=-10+random(21); writeln(a[i]); end; for i:=1 to 10 do if a[i]<0 then inc(n); write('Кол-во отрицательных чисел массива: ', n); end. 3) program chetniy; var a: array[1..8] of integer; i,n: integer; begin randomize; for i:=1 to 8 do begin a[i]:=-10+random(21); writeln(a[i]); end; for i:=1 to 8 do if a[i] mod 2 = 0 then inc(n); write('Кол-во отрицательных чисел массива: ', n); end.
1)
Ввод чисел в массив:
program vvod_mass;
var
a: array[1..12] of integer;
i: integer;
begin
for i:=1 to 12 do
begin
write('a[', i, ']='); readln(a[i]);
end;
end.
2)
program otric;
var
a: array[1..10] of integer;
i,n: integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=-10+random(21);
writeln(a[i]);
end;
for i:=1 to 10 do if a[i]<0 then inc(n);
write('Кол-во отрицательных чисел массива: ', n);
end.
3)
program chetniy;
var
a: array[1..8] of integer;
i,n: integer;
begin
randomize;
for i:=1 to 8 do
begin
a[i]:=-10+random(21);
writeln(a[i]);
end;
for i:=1 to 8 do if a[i] mod 2 = 0 then inc(n);
write('Кол-во отрицательных чисел массива: ', n);
end.