ПОМОГИТЕ С ИНФОРМАТИКОЙ! Дана последовательность действительных чисел а1, а2, а3...аn...

Question

ПОМОГИТЕ С ИНФОРМАТИКОЙ! Дана последовательность действительных чисел а1, а2, а3...аn Cоздать массив из положительных чисел этой последовательности (если таких чисел нет, то вывести сообщение об этом факте) Сделать программу в паскале, это из 10 класса

Answer 1

uses crt;

const n=10;

var a,b: array[1..n] of byte; i,k: byte;

begin

randomize;

k:=0;

clrscr;

writeln('исходная последовательность чисел: ');

for i:=1 to n do

begin

a[i]:=random(20);

write(a[i]:3);

if a[i] mod 2 = 0 then

begin

inc(k);

b[k]:=a[i];

end;

end;

writeln;

if k>0 then

begin

writeln('чётные числа последовательности: ');

for i:=1 to k do

write(b[i]:3);

end

else writeln('в последовательности отсутствуют чётные числа');

end.

Comments

Это ведь по чётным, а не по положительным)