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

@vadimka235 · Регистрация: 25.12.2013

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

Ввести двумерный массив А (N,N) . составить программу замены всех отрицательных элементов на среднее арифметическое значение элементов массива.

@Ginar · 27.12.2013, 13:25

Pascal

Program v;
uses crt;
const n=10;
var a: array [1..n, 1..n] of real;
i: byte;
SrAr: real;
BEGIN
clrscr;
randomize;
For i:=1 to n do begin
 a[i,j]:=random*100-40;
  WriteLN(a[,i,j]:4:2);
   end;
WRITELN;
SrAr:=0;
For i:=1 to n do begin
 SrAr:=(SrAr+a[i,j])/(n*n);
  end;
WriteLN('Сред. ариф. элементов исходного массива=',SrAr)
For i:=1 to n do begin
 if a[i,j]<0 then a[i,j]:=SrAr;
  WriteLN(a[i,j]:4:2);
   end;
Readkey;
END.

@vadimka235 0 / 0 / 0 Регистрация: 25.12.2013 Сообщений: 13
		1
	Составить программу замены всех отрицательных элементов на среднее арифметическое значение элементов массива 25.12.2013, 19:20. Показов 3248. Ответов 1 Метки нет (Все метки) Ввести двумерный массив А (N,N) . составить программу замены всех отрицательных элементов на среднее арифметическое значение элементов массива. 0

	27.12.2013, 13:25

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

Решение