Задан массив из 9 целых чисел.Вывести на экран элементы ,которые больше 15.
Program Mas;
Var a:array[1..100] of integer;
i, n: integer;
Begin randomize;
writeln(Введите размерность массива,n);
readln(n);
for i:=1 to n do
a[i]:=random(45)-1; readln;
for i:=1 to n do
begin if a[i]>15 then
write( ,a[i]);
end;
readln;
End.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
