Предмет: Информатика,
автор: неуч1998
Ввести одномерный массив из 5 элементов и вывести на экран его положительные элементы.
Pascal abc
Ответы
Автор ответа:
0
я сделала ввод массива с клавиатуры, но ты можешь сделать его рандомными числами
const N=5;
var A: array [1..N] of real;
i: integer;
begin
writeln('Введите массив');
for i:=1 to N do
readln(A[i]);
writeln('Положительные элементы:');
for i:=1 to N do
if A[i]>0 then
writeln('A[', i, ']=', A[i]);
end.
const N=5;
var A: array [1..N] of real;
i: integer;
begin
writeln('Введите массив');
for i:=1 to N do
readln(A[i]);
writeln('Положительные элементы:');
for i:=1 to N do
if A[i]>0 then
writeln('A[', i, ']=', A[i]);
end.
Похожие вопросы
Предмет: Русский язык,
автор: ahuetdolbit
Предмет: Английский язык,
автор: yzola24
Предмет: География,
автор: aliskerovshax
Предмет: Алгебра,
автор: NikWifi
Предмет: Литература,
автор: 111551