Ilyauhdhbtxskr

14.01.2021 12:48

Есть ответ 👍

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

204

395

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

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

ольга1656

Информатика

4,6(54 оценок)

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;

writeln;

if k>0 then

begin

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

for i:=1 to k do

write(b[i]:3);

end

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

end.

LizaMelehina457

Информатика

4,7(2 оценок)

Program n1; var i: integer; begin for i: =45 to 180 do if(i mod 8=0) then writeln(i); end.

Задай свой вопрос

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.