Статистика
Всего в нашей базе более 4 327 657 вопросов и 6 445 963 ответов!

составить программу,которая определяет сколько раз встречается в таблице а максимальное по величине число.Pascal.Массивы. Заранее благодарю:)

10-11 класс

алмаз1234 13 апр. 2013 г., 9:27:44 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Nurmagomedov450
13 апр. 2013 г., 12:06:02 (10 лет назад)

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.

Ответить

Другие вопросы из категории

Для приготовления одного яблочного торта требуется 200 г сливочного масла, 200 г муки, 2 яйца, 300 г сахара и 8 яблок. Для приготовления одного ореховог

о торта надо 200 г орехов, 400 г муки, 300 г сахара, 300 г масла и 3 яйца. На один шоколадный торт тратится 3 шоколадки, 2 яйца, 300 г муки, 200 г масла и 100 г сахара. Масло стоит 100 условных единиц за кг, сахар – 20 условных единиц за кг, яйца – 20 условных единиц за десяток, мука – 30 условных единиц за кг, орехи – 100 условных единиц за кг, яблоки – 2 условные единицы за штуку, шоколадки – 10 условных единиц за штуку. Построить электронную таблицу, из которой будет видно: сколько будет стоить каждый торт; сколько продуктов каждого вида повар должен купить и сколько это будет стоить; сколько всего денег он должен взять с собой, отправляясь за покупками

Читайте также

Напишите прог-у на паскале... ПЛИИИИИИИИИИЗ 1)даны действительные числа a1, b1, c1, a2, b2, c2. Составьте программу, которая находит координаты точки

пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.

помогите решить задачки по Паскалю "4": Составить функцию, которая определяет сумму всех чисел от 1 до N и привести пример ее

использования. Пример: Введите число: 100 сумма = 5050

"5":

Составить функцию, которая определяет, сколько зерен попросил положить на N-ую клетку изобретатель шахмат (на 1-ую – 1 зерно, на 2-ую – 2 зерна, на 3-ю – 4 зерна, …) Пример: Введите номер клетки: 28 На 28-ой клетке 134217728 зерен.

1) Составить функцию, которая определяет наибольшее из трех чисел и привести пример ее использования. Пример: Введите три числа:

28 15 10

Наибольшее число: 28

2)Составить функцию, которая определяет сумму всех чисел от 1 до N и привести пример ее использования.

Пример:

Введите число:

100

Сумма = 500

Буду очень признателен за помощь.



Вы находитесь на странице вопроса "составить программу,которая определяет сколько раз встречается в таблице а максимальное по величине число.Pascal.Массивы. Заранее благодарю:)", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.