В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия

Нужна программа 1)найти максимальный и минимальный элемент матрицы 2)найти сумму диагональных элементов всё это в одной программе (паскаль)

Показать ответ
Ответ:
макс3033
макс3033
24.07.2020 13:45
Var
  a: Array[1..30,1..30] of Integer;
 n,min, max, i,j,s: Integer;
BEGIN
writeln('n=');
readln(n);
Randomize;
Writeln('sluciayniy massiv:');
For i:=1 to n do
begin
  For j:=1 to n do  begin 
   a[i,j]:=Random(51)-25;
    Write(a[i,j]:5);
  end; 
 Writeln;
end; 
s:=0; 
min:= a[1,1]; 
max:= a[1,1]; 
for i:= 1 to n do
 for j:= 1 to n do 
if a[i,j]<min then
 min := a[i,j];
 for i:= 1 to n do 
for j:= 1 to n do
 if a[i,j]> max then
 max:= a [i,j];
 for i:=1 to n do
 for j:= 1 to n do
 if i=j then
s:= s+a[i,j]; 
writeln('min=',min, ' max=',max,' summa elementov glavnoi dioganali=',s); 
readln; 
end.



Var
  a: Array[1..100,1..100] of Integer; 
n,min, max, i,j,s:Integer;
BEGIN
writeln('n=');
readln(n);

Writeln('vvedite massiv:');
For i:=1 to n do
begin 
 For j:=1 to n do
begin 
read(a[i,j]); 
end; 
Writeln; 
 end; 
s:=0; 
min:= a[1,1]; 
max:= a[1,1]; 
for i:= 1 to n do 
for j:= 1 to n do 
if a[i,j]<min then min := a[i,j];   {поиск минимального элемента }
 for i:= 1 to n do
 for j:= 1 to n do 
if a[i,j]> max then max:= a [i,j]; {поиск максимального элемента}
for i:=1 to n do 
for j:= 1 to n do 
if i=j then s:= s+a[i,j]; { поиск элементов главной диагонали и нахождение их суммы}
writeln('min=',min, ' max=',max,' summa elementov glavnoi dioganali=',s); 
readln;
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота