Заполнить двумерный массив N x N случайными числами из интервала [-10 ; 10], все элементы большие среднего арифметического элементов массива, заменить на 0. Массив повторно вывести на экран. Срочно надо,помогите пожалуйста!!
Паскаль.
Паскаль.
More Questions From This User See All
Answers & Comments
Ответ:
const N = 3;
var A: array [1..N,1..N] of integer;
var i,j: integer;
var s: real;
begin
// Задаем элементы массива, выводим его на экран
// и считаем среднее арифметическое
randomize();
s:=0;
writeln('Исходный массив:');
For i:= 1 to N do
begin
For j:= 1 to N do
begin
A[i,j]:=random(10-(-10)+1)-10;
s:=s+A[i,j];
write(A[i,j]:4);
end;
writeln();
end;
s:=s/(N*N);
// Заменяем элементы, большие среднего арифметического, на 0
// и повторно выводим массив на экран
writeln(сhr(10),'Результат: '); // сhr(10) - символ новой строки
For i:= 1 to N do
begin
For j:= 1 to N do
begin
if (A[i,j]>s) then A[i,j]:=0;
write(A[i,j]:4);
end;
writeln();
end;
end.