Массив из 12 элементов заполняется случайными целыми числами из диапазона от 0 до 55. Вычислите количество элементов значения которых попадают в интервал от 12 до 34. Выведите значения элементов в строку с комментариями. Количество элементов выведите в сл. строке.
More Questions From This User See All
Answers & Comments
const n=10;
var a:array [1..n] of integer;
i,k:integer;
begin
write ('Массив: ');
for i:=1 to n do
begin
a[i]:=random(56);
if (a[i]>=12) and (a[i]<=34) then k:=k+1;
if i<>n then write (i,' элемент: ',a[i],'; ') else write (i,' элемент: ',a[i],' ')
end;
writeln;
writeln ('Количество элементов, значения которых попадают в интервал от 12 до 34, равно ',k)
end.