Регистрация
lluukkaa
19.08.2020 18:38
Информатика
Есть ответ 👍

Найти максимальный элемент дополнительной диагонали квадратной матрицы (в паскале)

175
208
Посмотреть ответы 2

Ответы на вопрос:

Ильир
Ильир
4,5(72 оценок)
Var a: array[1..8, 1..8] of integer;     max, i, j: integer; begin     randomize;     max: =0;     for i: =1 to 8 do     for j: =1 to 8 do     a[i,j]: =random(200);     for i: =1 to 8 do       for j: =1 to 8 do       if i+j=9 then         begin       if a[i, j]> max then max: =a[i, j];       end;       for i: =1 to 8 do       begin        for j: =1 to 8 do       write(a[i, j]: 5);         writeln;         end;         writeln('максимальный элемент=', max);     end.
motidzukiakane
motidzukiakane
4,8(23 оценок)

Var I:integer

Begin

For I;=100 to 999 do//100 и 999 на свои значения

Begin

if l mod 47=43 then WriteLn(l)

End

End

Популярно: Информатика