Помогите написать программу на Паскале.
10-11 класс
|
В целочисленной матрице размером 10x10 найдите максимальное значение и индексы всех элементов, равных ему.
var
ar: array[1..10,1..10] of integer;
i,j,max,count:integer;
begin
count:=1;
max:=0;
randomize;
for i:=1 to 10 do begin
for j:=1 to 10 do begin
ar[i,j]:=random(10)+1;
if (j mod 10=0) then writeln(ar[i,j]) else write(ar[i,j],' ');
if (ar[i,j] > max) then max:=ar[i,j];
end;
end;
for i:=1 to 10 do begin
for i:=1 to 10 do begin
for j:=1 to 10 do begin
if (ar[i,j] = max) then begin
writeln('Индекс ',count,' элемента = ',i,' ',j);
inc(count);
end;
end;
end;
end.
Другие вопросы из категории
вариант, в котором объемы памяти расположены в порядке возрастания
Проверочная работа по теме "Линейные алгоритмы" 2 вариант
Заранее спасибо)
Читайте также
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
рдинат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу
13.
Нужно написать программу на цикле с предусловием, на Паскале.
2.написать программу в паскале
f(x)=2(sin*sin)x+1
Дано натуральное число n. Написать программу вычисляющую сумму