На паскаль:
var
a: array [1..10] of integer;
max, min, i: integer;
begin
for i := 1 to 10 do
read(a[i]);
max:=-maxint;
min:= maxint;
for i:= 1 to 10 do
if (a[i]>max) then max:=a[i];
for i := 1 to 10 do
if (a[i]<min) then min := a[i];
for i := 1 to 10 do
if (a[i]<0) then a[i] := min else if (a[i]>0) then a[i]:=max;
for i := 1 to 10 do
write(a[i],' ');
readln;
readln;
end.
1.Через поле и лесок
К нам примчался голосок.
Он пришел по проводам.
Слышно здесь, сказали – там.
(телефон)
2.Под крышей четыре ножки, А на крыше — суп да ложки. Четыре ноги, а ходить не может.
(стол)
3.На компьютерном столе
Помогает она мне.
Колесиком и кнопкой
Я управляю ловко.
(Мышка)
1. Свойство по высоте, направление убывание.
2. Свойство по количеству лепестков, направление убывание.
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s1:=ReadlnString;
var s2:=ReadlnString;
var s3:=s1.Interleave(s2).JoinIntoString;
Writeln(s3)
end.
<u>Пример</u>
крокодил
черепаха
кчреоркеопдаихла
На каждый символ в 8 символьном альфавите уходит 3 бита.
Чтобы найти сколько битов содержит 20 символов мы умножит 20 на 3=60 битов