В соревновании участвуют 4 команды. Сколько информации в сообщении, что выиграла 3-я команда , решение нужно в нормальном виде Дано/Решение/ответ.

program zadacha;

uses crt;

var a: array[1..6] of integer;

        max,i: integer;

begin

for i: =1 to 6 do readln(a[i]);

max: =a[1];

for i: =1 to 6 do if max > a[i] then max: =a[i];

writeln(max);

readln;

end.

вроде правильно..

program p_1; var i, n : integer; a, s : real; b : array [1..1000] of real; begin writeln('введите число а'); readln(a); writeln('введите количество значений массива n'); readln(n); write('введите элементы массива b'); for i: =1 to n do readln(b[i]); writeln('первоначальный массив b'); for i: =1 to n do writeln(b[i]); s: =0; for i: =1 to n do if b[i] > a then s: =s+b[i]; writeln('сумма значений =', s); end.

a: =a+b; (новое а после присвоения будет равно 6, b будет равно 4)

b: =a-b (новое b после присвоения будет равно 2, a будет равно 6)

a: =a-b (новое a после присвоения будет равно 4, b будет равно 2)

1) это все команды, которые исполнитель умеет выполнять.

автомат, осуществляющий действия, подобные действиям человека.

насчет второго, точно неправильное