М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
rostikstorozhev
rostikstorozhev
01.04.2022 03:32 •  Информатика

Составьте программу,которая заполняет массив a[1..10] случайными целыми числами в диапазоне от -20 до 20. чётные элементы замените на 1, а нечётные на -1. исходный и преобразованный массив выведите на экран в отдельных строках.

👇
Ответ:
Const n=10;
var a:array [1..n] of integer;
begin
randomize;
for i:=1 to n do
a[i]:=random(40)-20;
write(a[i], '  ');
for i:=1 to n do
if a[i] mod 2=0 then a[i]:=1 else a[i]:=-1;
for i:=1 to n do
write(a[i], '  ');
readln;
end.
4,4(50 оценок)
Открыть все ответы
Ответ:
верника3
верника3
01.04.2022

картинка это 3 этап

1-й этап

Дано:

(40 − а) — количество проданных авиабилетов бизнес-класса по цене хрублей за билет;

(120 − b) — количество проданных авиабилетов экономического класса по цене х/2 рублей за билет.

Найти:

s — общую сумму, полученную компанией от продажи билетов за рейс.

2-й этап

Для нахождения s можно вычислить значение следующего выражения:

(40 − а) * х + (120 − b) * х/2.

Здесь а и b — целые величины, s — величина вещественного типа.

3-й этап

1-й этап

Дано:

(40 − а) — количество проданных авиабилетов бизнес-класса по цене хрублей за билет;

(120 − b) — количество проданных авиабилетов экономического класса по цене х/2 рублей за билет.

Найти:

s — общую сумму, полученную компанией от продажи билетов за рейс.

3-й этап

4-й этап

program n_13_63;

var a, b: integer; s, x: real;

begin

writeln (‘Подсчет суммы от продажи билетов’);

writeln (‘Количество а непроданных билетов бизнес-класса’);

readln (a);

writeln (‘Количество b непроданных билетов экономического класса’);

readln (b);

writeln (‘Стоимость билетов бизнес-класса х‘);

readln (x);

s:=(40−a)*x+(120−b)*x/2;

writeln (‘Билетов продано на ‘, s,’ руб.’)

end.

5-й этап

Протестировать программу можно по следующим данным:

а = 39,

b = 119,

х = 2000,

s = 3000.


УМОЛЯЮ НУЖНО ОЧЕНЬ В ИНФЕ ВООБЩЕ НЕ ШАРЮ ЕСЛИ НЕ СЛОЖНО, ТО С ОБЪЯСНЕНИЕМ. В аэробусе вмещающем 160
4,7(32 оценок)
Ответ:
egorbokof
egorbokof
01.04.2022

Программа:

Pascal:

var

 chemodan, klad, dop: real;

begin

 write('Вес чемодана', #10, '<<< '); readln(chemodan);

 write('Вес ручной клади', #10, '<<< '); readln(klad);

 write('Вес доп. предметов ручной клади', #10, '<<< '); readln(dop);

 writeln('Вес багажа: ', chemodan + klad + dop);

end.

Python:

chemodan = float(input('Вес чемодана\n>>> '))

klad = float(input('Вес ручной клади\n>>> '))

dop = float(input('Вес доп. предметов ручной клади\n>>> '))

print('Вес багажа:', chemodan + klad + dop)

4,5(22 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ