Var
N, i, max: shortint;
arr: array[1..50] of shortint;
v: string;
begin
v := ' NO';
max := -(MaxSmallInt);
readln(N);
for i := 1 to N do
begin
read(arr[i]);
if arr[i] > max then max := arr[i];
if arr[i] = 0 then v := ' YES';
end;
writeln(max, v);
end.
Если это КУМИР, то не хватает числа повторений.
А что такое "шея" (?) цикла - понятия не имею.
1) :
64 байта = 512 бит
0,2 КБ = 819,2 бит
1,05 байт = 8,4 бит
1 КБ = 8192 бит
2) :
16 бит = 2 байта
512 КБ = 524288 байт
240 бит = 30 байт
1,12 КБ = 1146,88 байт
Ответ:84, это правильно навернок
(3-3)*3+3=3
3+3-3:3=5
3+3+3-3=6
3+3+3:3=7
3*3-3:3=8
3:3*3*3=9