165*165/8/1024 = 3,3233642578125
4 кбайт / 3,3233642578125 = 1,2035996326905417814508723599633 бит на пиксель.
2^1,2035996326905417814508723599633 = ~ 2 цвета
uses crt;
var i,j,min,n,m :integer; s:real;
a:array[1..100,1..100] of integer;
b:array[1..100] of integer;
begin
readln(n,m);
s:=0;
for i:=1 to n do begin
for j:=1 to m do
a[i,j]:=random(25)+1;
end;
for i:=1 to n do begin writeln;
for j:=1 to m do
write(a[i,j],' ');
end; writeln;
WriteLn('Ìèíèìàëüíûå ýëåìåíòû ñòðîê:');
for i:=1 to n do begin
min:=a[i,j];
for j:=2 to m do begin
if min>a[i,j] then begin
min:=a[i,j];
end;
end;
s:=s+min;
Write(min,' ');
end;
writeln('avg = ',(s/n):0:1);
end.
var x,y,n,m,s,z:real;i,k:integer;
begin
write('Введите начало и конец диапазона по х'); Read(n,m);
write('Введите шаг расчета по х'); Read(z);
k:= round((m - n)/z)+1;x:=n;
for I:= 1 to k do begin
y:= x * 34* 2*sin(x);
writeln(x:4:1,y:11:6);x:= x + z;end;<span>end.</span>
Program q193766551;var i, s: Integer;begin s := 0; for i := 2 to 100 do Inc(s, i * Integer(not Odd(i))); WriteLn(s);end.
Var i,k,n:integer;
a,b:array[1..100] of integer;
begin
readln(n);
for i:=1 to n do
begin
readln(a[i]);
if a[i]<0 then
begin
b[k]:=a[i];
k:=k+1;
end;
end;
write('Элементы: ');
for i:=1 to k-1 do write(b[i],' ');
writeln;
writeln('Колличество отрицательных=',k-1);
<span>end.</span>