const
N = 3;
var
a: array[1..N] of integer;
i, max: integer;
begin
max := 0;
writeln('Введите результаты трех спортсменов');
for i := 1 to N do readln(a[i]);
for i := 1 to N do
begin
if a[i] > max then
max := a[i];
end;
writeln;
writeln('Лучший результат среди трех спортсменов - ', max);
end.
// Программа и скриншот ее работы в приложениях
const
T_max=12;
var
i,j,s:byte;
m,n:byte;
T:array[1..T_max, 1..T_max]of integer;
begin
write('Введите значение m>4,n>4 для определения массива T[m,n]: ');
readln(m, n);
writeln('Заполнение массива случайными данными');
//начальные значения min и max
for i:=1 to m do begin
for j:=1 to n do begin
T[i,j]:=random(-79,79);// диапазон случайных чисел
write(T[i,j]:6);
end;
writeln();
end;
writeln();
writeln('Определить количество элементов четвертого столбца массива, меньших 5');
s:=0;
for i:=1 to m do
if (T[i,4]<5) then
s:=s+1;
writeln('Ответ: условию удовлетворяют ', s, ' элементов');
end.
Человек может быть приемником письменной информации
Запишем куски под номерами X Y Z N
1) взвешиваем X-N к примеру X тяжелее N
2) Взвешиваем Y-Z к примеру Y тяжелее Z
3) теперь взвешиваем два самых легких из предыдущих взвешиваний
N-Z к примеру Z тяж N