Question

Напишите, пожалуйста, решения этих задач на языке Pascal ABC:


1) В массиве из 10 целых чисел, заданных случайным образом в диапазоне [0;45] найти и вывести на экран все числа, начинающихся на 3.

2) В массиве из 10 целых чисел, заданных случайным образом в диапазоне [0;45] найти и вывести на экран количество нечетных отрицательных чисел.

Answer 1

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.