Массив из 15 элементов заполнить случайным образом в диапазоне [0..100].Вывести на экран все элементы массива меньшие 33. (Pascal)
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
Var a,b,c:integer;d:array [1..100] of integer;
begin
randomize;
for a:=1 to 15 do begin
d[a]:=random(100);
if d[a]<33 then writeln('элемент массива меньше 33 ==> ',d[a])
end;
end.