Подойдёт?
Решение:
input a$
input b$
if a$ > b$ then print b$,a$
if a$ < b$ then print a$,b$
Const
m=6;
n=8;
var
a:array[1..m,1..n] of integer;
i,j,r:integer;
begin
Randomize;
Writeln('Исходный массив');
for i := 1 to m do
begin
for j := 1 to n do
begin
a[i,j]:=Random(100);
Write(a[i,j]:3)
end;
Writeln
end;
for j:=1 to n do
begin r:=a[1,j]; a[1,j]:=a[m,j]; a[m,j]:=r end;
Writeln('Результирующий массив');
for i := 1 to m do
begin
for j := 1 to n do Write(a[i,j]:3);
Writeln
end
end.
<em><u>Тестовое решение:</u></em>
Исходный массив
6 93 10 3 80 4 47 71
33 33 75 85 93 22 53 16
83 30 39 95 35 53 30 83
29 43 83 54 88 83 49 67
24 67 47 97 82 40 67 35
42 26 67 23 28 8 8 45
Результирующий массив
42 26 67 23 28 8 8 45
33 33 75 85 93 22 53 16
83 30 39 95 35 53 30 83
29 43 83 54 88 83 49 67
24 67 47 97 82 40 67 35
6 93 10 3 80 4 47 71
Не хватает либо цены за билет эконом класса
либо цены за билет бизнес класса.
Uses crt;
var a,b,x,c,d:real;
begin
ClrScr;
writeln('Введите кол-во нераспроданных билетов бизнес класса (а) и кол-во нераспроданных билетов эконом. класса (б) ');
readln(a,b);
// Узнали, сколько осталось нераспроданных билетов разных классов.
c:=160*0.75-b;
// Узнали, сколько билетов продано эконом класса.
d:=160*0.25-a;
// Узнали, сколько билетов продано бизнес класса.
x:=d+c/2;
writeln('Для того, чтобы узнать сколько денег получила авиакомпания за этот рейс нужно число х: ',x,' умножить на цену билета бизнес класса, либо умножить на удвоенную цену одного билета эконом класса');
readln
end.
Или ответ: число которое выведет программа х, например, Ответ: 15х
<span>Программа проверена, если что не так пиши</span>
Код программы:
program cos1;
var
x, y: real;
begin
write('Введите x: ');
readln(x);
y := cos(sqrt((x-1)/(x+1)));
writeln('y = ', y:1:2);
end.
Пусть x - количество окуней, y - количество щук, z - количество карасей.
x+y+z = 64
Вероятность поймать окуня = x/64
I = log(2)1/p = log(2)[1/(x/64)] = log(2)[64/x] = 2; 64/x = 4; x = 16
x = 2*y; y = x/2 = 16/2 = 8
z = 64-16-8 = 40
Ответ: окуней - 16; щук - 8; карасей - 40