Заполнить двумерный массив 7,3 случайными числами. Найти среднее арифметическое элементов 3 строки

@Lamike · Регистрация: 25.09.2013

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

Заполнить двумерный массив 7,3 случайными числами. Найти среднее арифметическое элементов 3 строки

помогите решить,заранее спасибо*

@Svager · 10.12.2013, 16:46

Pascal

uses crt;
const n=3;m=7;
var a:array[1..m,1..n] of integer;
    b:array[1..n] of integer;
 i,j:integer;
 s:real;
BEGIN
clrscr;
randomize;
for i:=1 to m do
 for j:=1 to n do
  a[i,j]:=random(10);
 
  for i:=1 to m do
   begin
    for j:=1 to n do
     write(a[i,j]:4);
     writeln;
    end;
   writeln;
         s:=0;
         for j:=1 to n do
         s:=s+a[3,j];
 
         s:=s/n;
       write('Srednee arifmeticheskoe  = ',s:3:2) ;
readkey;
END.

@Lamike 0 / 0 / 0 Регистрация: 25.09.2013 Сообщений: 36
		1
	Заполнить двумерный массив 7,3 случайными числами. Найти среднее арифметическое элементов 3 строки 10.12.2013, 14:51. Показов 2299. Ответов 1 Метки нет (Все метки) Заполнить двумерный массив 7,3 случайными числами. Найти среднее арифметическое элементов 3 строки помогите решить,заранее спасибо* 0

	10.12.2013, 16:46

Опции темы

Заполнить двумерный массив 7,3 случайными числами. Найти среднее арифметическое элементов 3 строки

Решение