Дан массив вещественных чисел. найти номера и значения всех отрицательных элементов массива. если таких элементов нет , то должно буть напечатано соответствующее сообщение

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\";

ПЕР
  массив: РЯД 100 ИЗ ВЕЩ;
  сч: ЦЕЛ;
  найдено: КЛЮЧ;

УКАЗ
  найдено := ОТКЛ;
  ОТ сч := 0 ДО РАЗМЕР(массив) - 1 ВЫП
    ЕСЛИ массив[сч] < 0 ТО
      Вывод.ЧВещ("%g ", массив[сч], 0, 0, 0);
      ЕСЛИ НЕ найдено ТО найдено := ВКЛ КОН
    КОН
  КОН;
  ЕСЛИ НЕ найдено ТО Вывод.Цепь("Нету.") КОН

КОН Задание.

Задача 1)

var a: real;

begin

 writeln('Вычислите выражение 12*6 - 13*3');

 readln(a);

 if a=33 then writeln('Правильно') else writeln('Ошибка в расчётах');

end.

Задача 2)

var a: real;

begin

 writeln('Сколько вам лет?');

 readln(a);

 if a<14 then writeln('Вы ещё не получили паспорт!') else writeln('Паспорт вами получен!');

end.

Задача 3)

program pocupka;

var a: string;

begin

 writeln('Какое мороженное вы хотите купить эскимо, фруктовый лёд или пломбир?');

 readln(a);

 if a='эскимо' then writeln('50 рублей');

 if a='фруктовый лёд' then writeln('30 рублей');

 if a='пломбир' then writeln('48 рублей');

end.

Объяснение:

ответ: 1024Объяснение:

Так как скорость одинаковая, можно решить через пропорции:

Файл 2 Кбайт передаётся со скоростью 1024 бит/с.

Другой файл передаётся со скоростью 512 бит/с, то есть в 2 раза медленнее. Значит и передаваемый файл получится в 2 раза меньше. 2/2 = 1 Кбайт = 1024 байт.

Или же можно решить так, пошагово вычисляя:

Файл1 = 2 Кбайт = 256*1024 байт.

Скорость1 = 1024 бит/с = 1024/8 байт/с.

Время1 = ? = Файл1/Скорость1 = = 16 с.

Время2 = Время1 = 16 с.

Скорость2 = 512 бит/с.

Файл2 = ? = Скорость2*Время2 = 512*16 бит = байт = 512*2 байт = 1024 байт.