Регистрация
VTKOF
17.08.2020 18:00
Информатика
Есть ответ 👍

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

285
332
Посмотреть ответы 2

Ответы на вопрос:

zaira0
zaira0
4,5(7 оценок)

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.

ilonazin03
ilonazin03
4,7(74 оценок)

https://www.movavi.com/videoeditor/

Объяснение:

Популярно: Информатика