Var
A,B:real;
Begin
Write('Первое число: ');
ReadLn(A);
Write('Второе число: ');
ReadLn(B);
A:=A*B;
Write('Третье число: ');
ReadLn(B);
A:=A*B;
WriteLn('Произведение данных чисел: ',A);
End.
Элт. монитор
Электронно-лучевые приборы — класс электровакуумных электронных приборов, предназначенных для преобразований информации, представленной в форме электрических или световых сигналов. В приборах используются сфокусированные потоки электронов, управляемые по интенсивности и положению в пространстве.
110 Кбайт = 110*1024 байт
16 бит = 2 байта
Количество страниц = 110*1024 / (40*64*2) = 22
Предположим, что последовательность же задана, то есть вводить ее мы не будем. Последовательность представляет собой массив чисел а.
n:=1; k:=0;
for i:=1 to 100 do if (a[i]<0) then k:=k+1; проверяем наличие отрицательных
if (k=0) then writeln("Отрицательных нет.") else begin
for i:=1 to 100 do if (a[i]<0) then n:=a[i]; находим хотя бы один отрицательный
for i:=1 to 100 do if ((a[i]<0) AND (a[i]>n) then n:=a[i]; находим наибольший отрицательный
writeln("Наибольшее из отрицательных чисел данной последовательности - ",n);
end;
end.