1) var a: array [1..10] of integer;
i: integer;
begin
for i:=1 to 10 do begin
a[i]:=random(46);
write(a[i],' ');
end;
writeln;
for i:=1 to 10 do
if a[i] div 10 = 3 then write(a[i],' ');
end.
2) ВНИМАНИЕ! ВЫВОДИТ ТОЛЬКО НЕЧЕТНЫЕ ЧИСЛА, ТАК КАК ПОЯВЛЕНИЕ ОТРИЦАТЕЛЬНЫХ В ДАННОМ ДИАПАЗОНЕ НЕВОЗМОЖНО
var a: array [1..10] of integer;
i,j: integer;
begin
j:=0;
for i:=1 to 10 do
begin
a[i]:=random(46);
if odd(a[i]) then inc(j);
write(a[i],' ');
end;
writeln;
writeln('Количество нечетных чисел в массиве: ',j);
end.
Pascal
var a,b: array of integer;
i,k,s1,s2: integer;
begin
s1:=0;
s2:=1;
write('Введите количество элементов массива');
readln(k);
setlength(a,k);
setlength(b,k);
for i:=0 to k-1 do
begin
write('Ввод данных для a[',i,']=');
readln(a[i]);
if a[i]>0 then s1:=s1+a[i] else s2:=s2*a[i];
end;
writeln('Данные массива A:');
for i:=0 to k-1 do writeln('a[',i,'] = ',a[i]);
writeln;
writeln('Данные массива B:');
for i:=0 to k-1 do
begin
if a[i]>0 then b[i]:=s2 else b[i]:=s1;
writeln('b[',i,'] = ',b[i]);
end;
end.
ответ: 4 система счисления