Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Задача на массивы,помогите доработать

Автор: serg 22.12.2009 1:29

линейных массива,по следующему алгоритму: элементами первого массива-произведения элементов каждого столбца исходной таблицы,а элементами 2ого среднее арифметическое каждой строки

program massyvy;uses crt;
var i,j,n,m,c:integer;k:real;
a:array[1..100,1..100] of real;b:array[1..100] of real;o:array[1..100]of real;
begin clrscr;
writeln('vvedite n,m');read(n,m);
randomize;
for i:=1 to n do
begin writeln;
for j:=1 to m do
begin
a[i,j]:=random*50-15;
write(a[i,j]:6:2);
{\\\\\\\\\\\\\\\\\\\\\}for i:=1 to n do begin
k:=1;
for j:=1 to m do begin
b[j]:=a[i,j]*b[j];end;
end;
{\\\\\\\\\\\\\\\\\\\\\}
for i:=1 to n do begin
k:=0;
for j:=1 to m do begin
k:=a[i,j]+k;end;
k:=k/m;o[i]:=k;end;
readkey;
end;
end.

вот моя