Var a:integer;
begin
read(a);
if a>=0 then
write(a-8) else
write(a+6);
end.
Замените число 10 в задании массива и циклах на нужное число действительных чисел (выделено жирным)
var
i, a, b, c: integer;
m: array[1..10] of real;
begin
for i := 1 to 10 do readln(m[i]);
for i := 1 to 10 do
begin
if m[i] > 0 then a := a + 1;
if m[i] = 0 then b := b + 1;
if m[i] < 0 then c := c + 1;
end;
writeln(с, ' ', a, ' ', b);
end.
<span> Филипп Рейсу 26 октября 1861 года в Германии</span>
На одной странице содержится 2400 символов, всего в книге 360000 символов. В алфавите 32 буквы.
32 =
I = 5 бит.
360000 * 5 = <span>1800000.
</span>1 байт = 8 бит.
225000 бит информации.
Яша Арбузов
Сережа Тополев
Дима Иволгин
Лена Волкова
Коля Белкин
Роберт Щукин
Валя Стрелина
Катя Арбузова
Марина Яблочкова
Естественно если она была последней она поставила себя первой а всех остальных поставила наоборот например
Катя Тарасова
Саша Глущенков
Яланский Даниил
первая стоит Катя второй Саша третий Данил такая же ситуация он хочет быть первым и переставил местами Данил первый Саша второй Катя третяя себя с катей местами поменял а Сашу оставил.Понял?