Ввести одномерный массив из 5 элементов и вывести на экран его положительные элементы. Pascal abc
Answers & Comments
ukuleleshawerma69
Я сделала ввод массива с клавиатуры, но ты можешь сделать его рандомными числами 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.
Answers & Comments
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.