1. Чему равно высказывание C : «65 — положительное число» *
1. C = 0
2. C = 65
3. C = 1
4. нет верного ответа
5. все ответы верные

2. Чему равно высказывание B : «24 — отрицательное число». *

1. нет верного ответа
2. C = 24
6. C = 0
4. все ответы верные
5. C = 1

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 ttt; var i,j,a,b,c: integer; beginreadln(a); readln(b); readln(c); if (a> b) then if (a> c) then begin write(a); if (b> c) then begin write(b); write(c) end; else begin write(c); write(b); endend; elseif (b> c) then begin write (b); if(a> c)then begin write(a); write(c); end; else begin write(c); write(a); end; end; else begin write(c); if(a> b) then begin write(a); write(b)end; else begin write(b); write(a); end; end; end; неоптимальный, но понятный алгоритм.а в другом случае можноо оптимизировать.. как- подумай -; )

бег - бог - бок - бак - мак - маг -шаг

2*3=6

512*128*6=393216

393216: 1024=384кб