НУЖНА ПО ИНФОРМАТИКЕ ЗА ОТВЕТ
НУЖНО СДЕЛАТЬ НЕСКОЛЬКО ПРОГРАММ В PASCALABC.NET. ЗАРАНЕЕ БЛАГОДАРЮ ВАС ЗА ПРАВИЛЬНЫЙ - (ЫЕ) ОТВЕТЫ!
Ответы на вопрос:
1.
program z1;
const n=5;
var a:array [1..n,1..n] of integer;
i,j,s:integer;
begin
writeln ('Квадратная матрица:');
for i:= 1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=Random(10);
write(a[i,j]:3);
if i=j then s:=s+a[i,j]
end;
writeln;
end;
writeln('Среднее арифметическое элементов расположенных на главной диагонали: ',s/n)
end.
2.
program z2;
const n=5;
var a:array [1..n,1..n] of integer;
i,j,s,sp:integer;
begin
writeln ('Квадратная матрица:');
for i:= 1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=Random(21)-10;
write(a[i,j]:5);
if i=j then s:=s+a[i,j]
end;
writeln;
end;
for i:= 1 to n do
for j:=1 to n do
if (a[i,j]>0) and (a[i,j]>s/n)then sp:=sp+a[i,j];
writeln('Сумма положительных элементов, превышаюших по величине среднее арифметическое всех элементов расположенных на главной диагонали: ',sp)
end.
3.
program z3;
const n=5;
var a:array [1..n,1..n] of integer;
i,j,m:integer;
begin
writeln ('Двумерный массив:');
for i:= 1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=Random(21)-10;
write(a[i,j]:5)
end;
writeln;
end;
m:=a[1,1];
for i:= 1 to n do
for j:=1 to n do
if a[i,j]<m then m:=a[i,j];
writeln ('Минимальный элемент ',m);
for i:= 1 to n do
for j:=1 to n do
if a[i,j]=m then writeln('Индексы [',i,',',j,']')
end.
Проверка диска. Часто бывает, если ПК/ноутбук заражён "трояном". (Могу быть не прав)
Популярно: Информатика
-
Индира34718.09.2021 07:06
-
уукуку05.10.2021 05:59
-
Tina0528.07.2021 14:38
-
Vasiuk105519.02.2022 11:58
-
20MIR0120.08.2022 18:08
-
SofiaQueen07.05.2023 05:44
-
nika0610200711.07.2021 17:40
-
karinarei201716.05.2023 11:00
-
БезумныйКами66606.03.2022 14:21
-
nasik13431.01.2023 07:30