составить программу,которая определяет сколько раз встречается в таблице а максимальное по величине число.Pascal.Массивы. Заранее благодарю:)
10-11 класс
|
const n=100;
m=100;
var A: array[1..n,1..m] of integer;
i,j,maxi,maxj,k: integer;
begin
randomize;
for i := 1 to n do begin
for j := 1 to m do begin
A[i,j] := random(100);
end;
end;
maxi := 1;
maxj := 1;
for i := 1 to n do begin
for j := 1 to m do begin
if (A[i,j] > A[maxi,maxj]) then begin
maxi := i;
maxj := j;
end;
end;
end;
k := 0;
for i := 1 to n do begin
for j := 1 to m do begin
if (A[i,j] == A[maxi,maxj]) then k := k + 1;
end;
end;
writeln('k = ', k);
end.
Другие вопросы из категории
сопротивления 15 Ом второго сопротивления 20 Ом)
о торта надо 200 г орехов, 400 г муки, 300 г сахара, 300 г масла и 3 яйца. На один шоколадный торт тратится 3 шоколадки, 2 яйца, 300 г муки, 200 г масла и 100 г сахара. Масло стоит 100 условных единиц за кг, сахар – 20 условных единиц за кг, яйца – 20 условных единиц за десяток, мука – 30 условных единиц за кг, орехи – 100 условных единиц за кг, яблоки – 2 условные единицы за штуку, шоколадки – 10 условных единиц за штуку. Построить электронную таблицу, из которой будет видно: сколько будет стоить каждый торт; сколько продуктов каждого вида повар должен купить и сколько это будет стоить; сколько всего денег он должен взять с собой, отправляясь за покупками
Читайте также
пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.
использования. Пример: Введите число: 100 сумма = 5050
"5":
Составить функцию, которая определяет, сколько зерен попросил положить на N-ую клетку изобретатель шахмат (на 1-ую – 1 зерно, на 2-ую – 2 зерна, на 3-ю – 4 зерна, …) Пример: Введите номер клетки: 28 На 28-ой клетке 134217728 зерен.
28 15 10
Наибольшее число: 28
2)Составить функцию, которая определяет сумму всех чисел от 1 до N и привести пример ее использования.
Пример:
Введите число:
100
Сумма = 500
Буду очень признателен за помощь.