Ребят помогите в написании

30.11.2011, 20:39. **Показов** 990. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Составить программу, которая формирует одномерный массив из средних арифметических элементов каждой строки заданного двухмерного массива.

@Dtsnoob · 01.12.2011, 02:30

Pascal

uses crt;
var a:array [1..50, 1..50] of integer;
    b:array [1..50] of real;
    i,j,n,m:integer; sr:real;
begin
  Clrscr;
  Randomize;
  write ('n= '); readln (n);
  write ('m= '); readln (m);
  for i:=1 to n do
    begin
      writeln;
      for j:=1 to m do
        begin
          a[i,j]:=random(10);
          write (a[i,j]:5);
        end;
    end;
  writeln;
  for i:=1 to n do
    begin
      sr:=0;
      for j:=1 to m do
        sr:=sr+a[i,j];
      sr:=sr/m;
      b[i]:=sr;
    end;
  writeln;
  writeln ('Result: ');
  for i:=1 to n do
    write (b[i]:5:2);
  readln
end.

Faqer
		1
	Ребят помогите в написании 30.11.2011, 20:39. Показов 990. Ответов 1 Метки нет (Все метки) Составить программу, которая формирует одномерный массив из средних арифметических элементов каждой строки заданного двухмерного массива.

	01.12.2011, 02:30

Опции темы

Ребят помогите в написании

Решение