Var a : array[1..n] of integer;
b,i : integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(41)+10;
write(a[i],' ');
end;
writeln;
b:=a[1]; a[1]:=a[n]; a[n]:=b;
for i:=1 to n do write(a[i],' ');
writeln
end.

0 0

4 года назад

Дам сорок балов!!! шифр Цезаря Используя «шифр Полибия» было получено следующее сообщение 62 43 51 34 31 11 33 33 65. Декодируй

Айжаник

Русский - КОДУВАННЬ. . . .

0 0

4 года назад

Характеристику стационарного компьютера для писателя(тоесть слабенького компа)Очень надооо)

sdiana [128]

Рекомендую самый простой смарт телевизор к которому необходимо купить не дорогую внешнюю клавиатуру с USB входом, т.е. с разъемом как у флешки.

0 0

4 года назад

Не могу понять что делать,не было на этой теме.Помогите. В столбцах ОСТАТОК и ВЫРУЧКА вычисления реализовать по формулам.

Керим Kerim

С3-D3=E3 остаток
<span>B3*D3=F3 выручка</span>

0 0

3 года назад