=
Объяснение:
const
nmax=100;
type
Tarr=array[1..nmax] of integer;
var
a:Tarr;
i,n:integer;
begin
randomize;
repeat
write('Razmer massiva, ne bolee ',nmax,': ');
readln(n);
until n in [1..nmax];
writeln('Ishodniy massiv:');
for i:=1 to n do
begin
a[i]:=random(50);
write(a[i]:4);
end;
writeln;
i:=1;
while (i<=n) and (a[i] mod 5<>0) do
inc(i);
if i>n then
writeln('Net elementov kratyh 5')
else
begin
a[i]:=0;
writeln('Poluchenniy massiv:');
for i:=1 to n do
write(a[i]:4);
writeln;
end;
end.
картинка это 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.