Напишите, , решения этих на языке pascal abc: 1) в массиве из 10 целых чисел, заданных случайным образом в диапазоне [0; 45] найти и вывести на экран все числа, начинающихся на 3. 2) в массиве из 10 целых чисел, заданных случайным образом в диапазоне [0; 45] найти и вывести на экран количество нечетных отрицательных чисел.
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.