Опубликовано 5 лет назад по предмету Информатика от Vigod

дан произвольный двумерный массив целых чисел.Найти максимальный элемент кратный 3 в этом массиве

Ответ

Ответ дан Alphaeus

Program Vigod;
uses crt;
const
n = 12;
m = 13;
var
a:array[1..n,1..m] of integer;
i, j, max: integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('***          OK             ***');
{заполняем массив случайными числами}
randomize;
for i:=1 to n do
    for j:=1 to m do
      begin
        a[i,j]:=random(101)-50;
        if a[i,j] mod 3 = 0 then max:=a[i,j];
      end;
{находим нужный элемент и выводим массив}
for i:=1 to n do
    begin
      for j:=1 to m do
      begin
        if (a[i,j] mod 3 = 0) and (a[i,j]>max)then
          max:=a[i,j];
        write(a[i,j]:4);
      end;
      writeln();
    end;
   writeln();
   writeln('максимальный элемент кратный 3, равeн ',max);
end.

Проверено - работает на Паскаль АВС

Войдите или зарегистрируйтесь, чтобы добавить ответ или свой вопрос на сайт

Другие вопросы

Математика - 3 недели назад

Математика - 3 недели назад

Биология - 1 месяц назад

Ген днк включает 300 пар нуклеотидов. какова длина, молекулярная масса гена и сколько аминокислот закодировано в нем

Биология - 1 месяц назад

Ген днк включает 300 пар нуклеотидов. какова длина, молекулярная масса гена и сколько аминокислот закодировано в нем

Русский язык - 1 месяц назад

Подчеркните грамматическую основу. определите вид дополнения (прямое или косвенное), подпишите их 1) я отправил сестре телеграмму с поздравлением 2) учёные доказали существование жизни в космосе 3) он не знал никаких радостей, кроме чтения книг. 4) и поныне славятся у нас на севере замечательные русские умельцы.5) после тёплой ясной погоды наступило ненастье.6) подруга на станции купила новый иллюстрированный журналы и свежий мягкий хлеб. 7)хохлатые курицы ищут в сене мошек да букашек.8) и туман, и непогоду осень поздняя несёт

Что ты хочешь узнать?

Задай вопрос