Pascal:

[email protected] в категроии Информатика, вопрос открыт 25.03.2017 в 16:45

Uses crt;
var
n,i,j:integer;
a:array[1..20,1..30] of integer;
b:array[1..2,1..20] of integer;
c:array[1..20,1..1] of integer;
neg_count:integer;
pos_count:integer;
count_odd:integer;
summ:integer;
middlee:integer;
begin
middlee:=0;
neg_count:=0;
pos_count:=0;
summ:=0;
count_odd:=0;
for i:=1 to 20 do
for j:=1 to 30 do
begin
randomize;
n:=random(81)-30;
a[i,j]:=n;
writeln(a);
end;
for i:=1 to 20 do
for j:=1 to 30 do
begin
if a[i,j]<0 then
neg_count:=neg_count+1
else pos_count:=pos_count+1;
b[i,1]:=neg_count;
b[i,2]:=pos_count;
end;
for i:=1 to 20 do
for j:=1 to 30 do
begin
if a[i,j] mod 2=0 then
count_odd:=count_odd+1;
summ:=summ+a[i,j];
c:=middlee;
middlee:=summ/count_odd;
end;
writeln(middle)
end.

Есть небольшая проблема с компиляцией. Нельзя преобразовать тип integer к array [1..20] of array [1..1] of integer.Ошибку показывает в строчке c:=middlee.(5ая снизу).Программа ещё очень сырая,мне бы только понять,как исправить эту ошибку.