Дима решил подсчитать частоту обновления своего экрана. ему известно, что изображения объемом 608 мбайт - id867775020220120 от ZigFinde 20.01.2022 07:37

Question

Информатика: Дима решил подсчитать частоту обновления своего экрана. ему известно, что изображения объемом 608 мбайт передавались от видеопамяти к монитору за 4 секунды в режиме 2048х1024 пикселей с глубиной цвета 8 битов. ему вычислитьл частоту обновления экрана.

ZigFinde · Accepted Answer

Var ar:array of array of integer;
n1,k,i,n2,j:integer;
b:boolean;
begin;
readln(n1);
readln(n2);
inc(n1);
inc(n2);
k:=1;
setlength(ar,n1+1);
while k<>n1 do
begin;
setlength(ar[k],n2+1);
inc(k);
end;
b:=false;
k:=0;
i:=1;
j:=1;
writeln('Matrix:');
while i<>n1 do
begin;
writeln;
while j<>n2 do
begin;
ar[i,j]:=random(100)-50;
write(ar[i,j]:4);
inc(j);
end;
j:=1;
inc(i);
end;
i:=1;
j:=1;
while i<>n1 do
begin;
while j<>n2 do
begin;
if ar[i,j]<0 then b:=true;
inc(j);
end;
if b=false then
begin;
writeln;
writeln(i);
exit;
end;
b:=false;
inc(i);
j:=1;
end;
writeln;
writeln('Все');
end.

MOGZ ответил