Регистрация
yhaaa1212
24.08.2022 19:02
Информатика
Есть ответ 👍

Склавиатуры заполняется массив 10 на 10 поменять 1 и 10 строчку местами( в по скале с пояснениями, действительно до 15 05)

229
288
Посмотреть ответы 2

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

катяипапа000111
катяипапа000111
4,5(72 оценок)
Const      n = 10; m = 10; var    arr: array[1..n,1..m] of byte;     i,j,a,b,buff: byte; begin    for i: =1 to n do begin        for j: =1 to m do begin            read(arr[i,j]);         end;     end;   for j: =1 to m do begin        buff : = arr[1,j];         arr[1,j] : = arr[10,j];         arr[10,j] : = buff;     end;     writeln('==============');     for i: =1 to n do begin        for j: =1 to m do            write(arr[i,j]: 3);         writeln;     end; end.
MrGromFull
MrGromFull
4,4(34 оценок)
Var a,b,c,d: integer; begin write('первое число: '); readln(a); write('второе число: '); readln(b); write('третье число: '); readln(c); if (a < c) and (b < c) then d: =a*b; if (a < b) and (c < b) then d: =a*c; if (b < a) and (c < a) then d: =b*c; write('результат: ',d); end. всегда ))

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