1) Вводится 4 числа. Вывести на экран наибольшую из первых цифр заданных чисел. Например, если a=46, b=831, c=2996, d=486, то напечатать число 8. Использовать процедуру. - Написать на Паскале. 2) Дан массив A (10,5). Поменять местами элементы первого столбца с элементами столбца, в котором находится максимальный элемент массива. - Написать на Паскале. 3) Вводятся значения трех переменных. Переставить значения. Дополнительные переменные не использовать. Составить алгоритм.

Задача 1.

var

a, i:integer;

ss, max:string;

ar:array[0 ... 3] of string;

procedure val_to_str (a:integer);

begin

str (a, ss);

ar[i]:=copy (ss, 1,1);

i:=i+1;

end;

begin

repeat

begin

read (a);

val_to_str (a);

end

until i=4;

max:=ar[0];

for j:integer:=1 to 3 do

begin

if ar[j]>max then

max:=ar[j];

end;

writeln ('Наибольшая цифра высшего разряда равна ', max);

end.

Задача 2.

var matrix:array[1 ... 10,1 ... 5]of integer;

i, j, max_el, max_col, temp:integer;

begin

for i:=1 to 10 do

begin

for j:=1 to 5 do

begin

matrix[i, j]:=random (100);

write (matrix[i, j]:5);

if matrix[i, j]>max_el then

begin

max_el:=matrix[i, j];

max_col:=j;

end;

end;

writeln;

end;

writeln (max_el);

writeln (max_col);

for i:=1 to 10 do

begin

temp:=matrix[i, 1];

matrix[i, 1]:=matrix[i, max_col];

matrix[i, max_col]:=temp;

end;

for i:=1 to 10 do

begin

for j:=1 to 5 do

write (matrix[i, j]:5);

writeln;

end;

end.

Задача 3.

var

a, b, c:integer;

begin

readln (a, b, c);

writeln ('a = ', a,'; b = ', b,'; c = ', c);

writeln ('Заменим все значения с помощью арифметики!');

a:=a+c;

c:=a-c;

a:=a-c;

b:=b+c;

c:=b-c;

b:=b-c;

writeln ('a = ', a,'; b = ', b,'; c = ', c);

end.