Вводится 4 числа, надо узнать есть ли среди них отрицательные? Паскаль с циклом for

var

haveNegative : boolean;

x, i : integer;

begin

haveNegative := false;

for i:= 1 to 4 do

   begin

   readln(x);

   if x < 0 then

       haveNegative := true;

   end;

if haveNegative then

   writeln('Отрицательное число есть!')

else

   writeln('Отрицательного числа нет!');

end.

зависит от скорости чтения ученика 

пусть будет 160 с/м

время прочтения 30 мин

1. 160*30 = 4 800 1 символ = 1 байт, следовательно ученик получит 4 800 байт информации или 4,6875 кб 2. объем дискеты 3.5" = 1457664 байт, 1/2 дискеты = 728832 байт из п.1 определим скорость: 160 байт в минуту (т.к. 160 символов в минуту по условию). т.о. имеем: при скорость 160 байт в минуту объём данных в 728832 байт будет считан за: 728832/160 = 4555,2 минуты или 75 часов 55 минут и 12 секунд. 

по одному.

обь в канал, мир,енесей,россия проплыли канал. обь выплыла и поплыла себе куда надо.

мир,енесей,россия вернулись обратно перед каналом

в канал заплыл восток.

мир,енесей,россия проплыли канал. восток уплыл

и тд