Program q;
var a:array[1..7,1..7] of integer; min7,sum1,odd,i,k:integer; avg5:real;
begin;
randomize;
for i:=1 to 7 do begin;
for k:=1 to 7 do begin;
a[i,k]:=random(-10,10);
if a[i,k] mod 2 = 1 then odd+=1;
end;
end;
min7:=a[1,7];
for i:=1 to 7 do if a[7,i]<min7 then min7:=a[i,7];
for i:=1 to 7 do sum1+=a[i,1];
for i:=1 to 7 do avg5+=a[5,i];
avg5/=7;
for i:=1 to 7 do a[1,i]:=1;
write('Минимальный элемент в 7 столбце ', min7, ', сумма элементов первой строки ', sum1, ', кол-во нечётных чисел ', odd);
end.
11010=1*2^4+1*2^3+1*2+1=27.
Определить объем растрового изображения размером 200 х 200 и 256 цветами.
Решение: 200 х 200 х 8 бит = 320 000 бит / 8 бит / 1024 байт = 39,0625 Кбайт ≈ 39 Кбайт
<span>Ответ: 39 Кбайт</span>
Var a, k1, k2:integer;
Begin
K1:=0;k2:=0;a:=1;
While a<>0 do begin
Write('a=') ;read(a) ;
If a mod 2 =0 then k1:=k1+1 Else k2:=k2+1;
End;
Write ('четных ', k1-1) ;
Write('нечетных ', k2) ;
End.