Пробегаем один массив, находим индекс максимального элемента
также и второй
меняем местами значения
Program log1;
Var x,y,s:integer;
Begin
writeln('x=');
readln(x);
writeln('y=');
readln(y);
s:=sqr(x)+sqr(y);
if s<=4
then writeln('4 равен или больше чем сумма квадратов x и y')
else writeln('4 меньше суммы квадратов x и y');
end.
Shift вот эта клавиша за это отвечает
350 символов это 9бит на символ.Далее нпсложное умножение.
9*60*32*6= 129600бит =15200 байт
19- б(но это не точно) 20- 1(это точно)