Полина набирала для себя неаккулынае занятия в будние дни. Уроки в школе заканчиваются в 13 ч. Полина - id1596379920220215 от Vasya789 15.02.2022 00:47

Question

Информатика: Полина набирала для себя неаккулынае занятия в будние дни. Уроки в школе заканчиваются в 13 ч. Полина выписала себе грілки работы учреждений, которые хотела бы посещать. Посещать она могла олько по ави ранных занятий в лет составить график занятий на неделю, если каждое занятие вместе с переходом и одного места в другое составляет 1 ч., запишите график в таблицу. Труд и риботы учреждении. Понедельник, среда, четверг, пятница с 10 до 14. Понедельник полног Вторник, суббота, воскресенье вы калині

Vasya789 · Accepted Answer

В разделе var нужно описать переменную max.

Program Runa;

const
n=5;
m=5;

var
A:array[1..n,1..m] of real;
i,j: integer;
max: real;
begin
writeln('матрица A(5x5)');
{Считываем матрицу с экрана}
for i:=1 to n do
    for j:=1 to m do
    begin
      write ('A[ ',i,',',j,' ] = ');
      readln (A[i,j]);
    end;
{Присваиваем минимальное значение максимуму}
max:=0;
for i:=1 to n do
    for j:=1 to m do
    {Если в матрице число больше максимума - присваиваем максимуму значение из матрицы}
    if (a[i,j]>max) then max:=a[i,j];

{Если максимум не 0 - значит в матрице есть положительные числа, выводим максимум}
if max>0 writeln ('max= ',max) else
    Writeln('Положительных элементов нет');
end.

MOGZ ответил