Var
a: array [1..10000,1..10000] of integer;
c,s,b,n,m: integer;
begin
readln (n,m);
for b:=1 to n do
for c:=1 to m do
readln (a[b,c]);
for b:=1 to n do
for c:=1 to m do
if ((a[b,c] < 10) and (a[b,c] > 0)) then s:= s+a[b,c];
writeln (s);
end.
Program znanija;
var a,b,c:integer;
begin
write ('Введите 3 числа: ');
read(a,b,c);
if a<b and a<c and b<c then
begin
a*2;
b*2;
c*2;
write ('Числа: ',a, b, c);
end
else write ('Числа упорядочены не по возрастанию');
end.
Размеры изображения K= 300 х 300 х10 х12= 10800000 пикселей
Информационный объем равен J=K*i
глубина цвета равна 3 байта =3*8=24 бит
J=24 бит * 10800000=2.592*10^8 бит =32400000 байт =31640.6 кБайт=30.9 Mб
Var
a:array [1..12] of integer;
i,s:integer;
begin
writeln('vvedite 12 chisel');
for i:=1 to 12 do
readln(a[i]);
writeln('massiv');
for i:=1 to 12 do
write(a[i],' ');
writeln();
for i:=1 to 12 do
if abs(a[i])>15 then s:=s+1;
writeln('kolichestvo elementov = ',s)
end.