cerrys12

27.08.2021 22:34

Информатика

Есть ответ 👍

Составить программу дан массив натуральных чисел , размерность -12 ! ) заполнение массива производить с клавиатуры 2) вывести на печать только элементы кратные 2 3)найти сумму первых пяти элементов составить программу дан массив целых чисел , размерность -12 1) заполнение массива производить случайными числами из диапозона [-10; 35] 2)вывести на печать только положительные элементы 3)найти количество отрицательных элементов составить программу известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . определить количество ткани ( метров) произведенных цехом за месяц .

184

440

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

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

Artem574189

Информатика

4,4(35 оценок)

var a: array[1..12] of integer;

i,s: integer;

begin

s: =0;

for i: =1 to 12 do

read(a[i]);

for i: =1 to 12 do

if a[i] mod 2 = 0 then write(a[i],' ');

for i: =1 to 5 do

s: =s+a[i];

writeln(s);

end.

#2.

var a: array[1..12] of integer;

i,s: integer;

begin

s: =0;

for i: =1 to 12 do begin

randomize;

a[i]: =random(46)-10 {функция рандом будет вызывать значения от 0 до 45, и еще -10 получится от -10 до 35}

end;

for i: =1 to 12 do begin

if a[i]> 0 then write(a[i],' ');

if a[i]< 0 then s: =s+1;

end;

writeln(s);

end.

стоит учесть что он не будет учитывать 0. например, он может выдать вам 5 положительных(напишет) и количество отрицательных - 2, и это означает что остальные 5 в массиве нули.

var a: integer;

begin

read(a);

write(a*30);

end.

Frikkkkkkkk

Информатика

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

1 программаuses crt; var a: array [0 .. 12] of integer; sum, i: integer; beginsum: =0; for i: =1 to 12 dobegin write('write a[ ',i,' ] = '); readln(a[i]); end; for i: =1 to 12 dobegin if a[i] mod 2=0 then writeln(a[i]); end; for i: =1 to 5 dobegin sum: =a[i]+sum; end; write('suma = '); writeln(sum); readln; end.

2 программаuses crt; var a: array [0 .. 12] of integer; sum, i: integer; beginsum: =0; for i: =1 to 12 dobegin a[i]: = random(46)-10; // random(max-min+1)+min; end; for i: =1 to 12 dobegin if (a[i]> 0) then writeln(a[i]); end; for i: =1 to 12 dobegin if a[i]< 0 then inc(sum); end; write('otric elementov = '); writeln(sum); readln; end.

ткань

uses crt; var days,m: integer;

begindays: = 30; //дней в месяцеm: =135; //метров сделали за деньwriteln('за месяц = ',days*m, ' метров '); readln; end.

Margo231

Информатика

4,5(27 оценок)

1.Б 2.А 3.В 4.А 5.Г 6.В

Объяснение:

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

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

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

Есть вопросы?

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

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

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

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

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