Var
x,max:real;
n,i:integer;
begin
write('Введите число n: ');
readln(n);
for i:=1 to n do
begin
write('Введите число ',i,': ');
readln(x);
if x<0 then
begin
if max=0 then max:=x; // если это первое отр.число
if x>max then max:=x
end
end;
writeln('Наибольшее среди отрицательных: ',max)
<span>end.</span>
Существуют три вида циклов <span>на языке Pascal:
1) цикл с параметром (с известным числом повторений) for; используется, когда известно, сколько раз выполнится цикл;
2) цикл с предусловием while; используется, когда неизвестно число выполнений цикла и цикл выполняется, пока условие верно;
3) цикл с постусловием repeat; </span>используется, когда неизвестно число выполнений цикла и цикл выполняется до истинности условия.<span>
Примеры.
1) найти сумму первых 10 натуральных чисел:
s:=0;
for i:=1 to 10 do s:=s+i;
write(s);
2) найти сумму всех натуральных четных чисел в промежутке от 7 до 45:
s:=0; i:=8;
while i<45 do
begin
s:=s+i;
i:=i+2
end;
write(s);
3) </span>найти сумму всех натуральных четных чисел в промежутке от 7 до 45:
s:=0; i:=8;
repeat
s:=s+i;
i:=i+2
until <span> i>45;</span>
write(s);
1 мбайт=1024 кбайт=2048 байт.
1 гбайт=1024 мбайт=102400 кбайт.
2 тбайт=2048 гбайт=2048000 мбайт.
1 гбайт 536 мбайт=1536 мбайт=153600 кбайт.
1)-б)полужирное начертание
2)<u />г)подчеркнутое начертаете
3)
-в)абзац
4)
курсивное начертаете