Var
a: array [1..10] of integer;
i, n: byte;
begin
Randomize;
for i:=1 to 10 do
begin
a[i]:=random(100)-50;
n:=abs(a[i] mod 10);
if (n = 4) or (n = 8) then write(a[i]:4);
end;
readln;
<span>end.</span>
121:2=60(1)
60:2=30(0)
30:2=15(0)
15:2=7(1)
7:2=3(1)
3:2=(1)(1)
число: 1111001
Ответ: 5 единиц
Const
n = 3;
var
i,b:integer;
a:array[1..n] of integer;
begin
b:=21;
for i:=1 to n do
begin
a[i]:=random(51)-30;
if (a[i]>0) and (a[i]<b) then b:=a[i];
end;
writeln('Полученный массив:');
for i:=1 to n do
write('a[':4,i,']=',a[i]);
writeln;
if b<21 then write('Наименьший элемент = ',b) else write('Нет положительных элементов')
end.
1)
case k of
4: a:=k+2;
5: a:=k+4;
6: a:=k+6;
7: a:=k+8;
8: a:=k+10;
9: a:=k+12;
10: a:=k+14;
end; { case }
2) if k in [4..10] then a:=3*(k-2);