Напишите, пожалуйста, решения этих задач на языке Pascal ABC:
1) В массиве из 10 целых чисел, заданных случайным образом в диапазоне [0;45] найти и вывести на экран все числа, начинающихся на 3.
2) В массиве из 10 целых чисел, заданных случайным образом в диапазоне [0;45] найти и вывести на экран количество нечетных отрицательных чисел.
1) В массиве из 10 целых чисел, заданных случайным образом в диапазоне [0;45] найти и вывести на экран все числа, начинающихся на 3.
2) В массиве из 10 целых чисел, заданных случайным образом в диапазоне [0;45] найти и вывести на экран количество нечетных отрицательных чисел.
More Questions From This User See All
Answers & Comments
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.