найти максимальный диагональный элемент и указать его координаты в главной диагонали матрицы, помогите написать программу
5-9 класс
|
uses crt;const h=100;var a: array [1..h,1..h] of integer; n,x,y,max: integer;
begin write('Длина матрицы= '); readln(n); // Enter for x:=1 to n do for y:=1 to n do begin write('a[',x,',',y,']= '); readln(a[x,y]); end; // max:=a[1,1]; while x<>n do begin if a[x,x] > max then begin max:=a[x,x]; y:=x; end; inc(x); end; writeln('Максимальный элемент равен ',max,'.Его координаты (',y,';',y,').'); end.
Другие вопросы из категории
ответа. Обоснуй ответ.
В каком из представленных
устройств происходит обработка информации, перед её дальнейшим выводом?
а) оперативная память;
б) монитор;
в) процессор;
г) видеокарта.
Плиз , зоранея спасибо!
слово передача
Читайте также
Найти максимальное натуральное число меньше 5000, которое делится нацело на 39.
Задача 3: 1 марта в банк положили 1000 руб. Каждый месяц вклад увеличивается на 2% от имеющейся суммы.
а) за какой месяц величина процентной надбавки превысит 30 руб.?
б) через сколько месяцев размер вклада превысит 1200 руб.? Заранее спасибо)
Пользователь вводит пять чисел. Программа выводит ответ: "Максимальное число ... ".
Написать программу в "КуМиРе"