Цитата:
Сообщение от EvgeniyaL
ой..а Вы не могли бы тогда ошибки посомтреть и исправить?
|
Ой... мог бы.
По первой - уже сказано выше, вторая - вроде всё правильно, а вот третья - увы и ах. Во-первых, неправильно расставлены операторные скобки: вы опять закрыли цикл по i, а потом пытаетесь считать количества и суммы, во-вторых, Вы забыли, что sum2 - число отрицательное, а потому при вычислении raznost надо либо брать sum1-Abs(sum2), либо просто менять знак: sum1+sum2. Ну и плюс небольшая косметика с форматами. С учетом всего этого:
Код:
var
i,j,kol:integer;
sum,sr:real;
A:array[1..9,1..6] of integer;
begin
randomize;
sum:=0;
kol:=0;
for i:=1 to 9 do
begin
writeln;
for j:=1 to 6 do
begin
A[i,j]:=random(15)-5;
write(A[i,j]:6);
if A[i,j]<0 then
begin
sum:=sum+A[i,j];
kol:=kol+1;
end;
end;
end;
sr:=sum/kol;
writeln;
writeln('srednee arifm= ',sr:0:3);
readln;
end.
Код:
var
A:array[1..15] of integer;
i,kol1,kol2,sum1,sum2,razn:integer;
begin
randomize;
sum1:=0;
sum2:=0;
kol1:=0;
kol2:=0;
for i:=1 to 15 do
begin
A[i]:=random(15)-5;
writeln('strana= ',i:2,' saldo= ',A[i]:3);
if A[i]>0 then
begin
kol1:=kol1+1;
sum1:=sum1+A[i];
end;
if A[i]<0 then
begin
kol2:=kol2+1;
sum2:=sum2+A[i];
end;
end;
writeln('kol-vo stran s +saldo= ',kol1);
writeln('kol-vo stran s -saldo= ',kol2);
razn:=sum1+sum2;
writeln('raznost= ',razn);
readln;
end.