Вводится число N,а затем n чисел.Выведите среди N чисел только положительные Pascal abs
Вводится число N,а затем n чисел.Выведите среди N чисел только положительные
Pascal abs
Гость
Ответ(ы) на вопрос:
Гостьvar
N,i:integer;
begin
readln(n);
for i:=1 to n do
begin
if n>0 then
writeln(i)
end;
end.
ГостьProgram Prog;
Uses crt;
var a: array [1..100] of real;
i, N: integer;
begin
clrscr;
Write('N = ');
readln(n);
for i:=1 to n do
begin
write('a[',i,'] = ');
readln(a[i]);
end;
writeln;
writeln('Положительные числа: ');
for i:=1 to n do
if (a[i]>0) then
writeln('a[',i,'] = ', a[i]);
end.
Не нашли ответ?
Похожие вопросы