Const
n=5;
var
a:array[1..n,1..n]of integer;
i,j,k:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(10);
write(a[i,j]:3);
end;
writeln;
end;
j:=n;
for i:=1 to n do
begin
if a[i,j]<5 then k:=k+1;
j:=j-1;
end;
writeln('Ответ: ',k);
<span>end. </span>
Var a,k:integer;beginwriteln ('На сколько яиц больше курочка снесла во второй раз, k = ');readln(k);a:=1+(1+k)+(1+k+k)+(1+k+k+k)+(1+k+k+k+k);writeln('Дед и баба могли сделать яичницу из ',a,' яиц');end.
Переводим 5 Кбайт в биты:
5 * 1024 * 8 = 40 960 бит
Находим время:
40 960 / 256 = 160 секунд
160 / 60 = 2,66 мин
Ответ: 2,66 минуты.
Блок-схема и программа - в прилагаемых файлах
var
i, n, k, max: <em>integer</em>;
begin
readln(n);
max := Integer.MinValue;
for i := 1 to n do
begin
readln(k);
if (k mod 4 = 0) then
max := System.Math.Max(max, k);
end;
writeln(max);
<span>end.</span>