Выведи на экран большее из двух данных чисел. Запиши программу на языке Паскаль,выведи ответ на экран,если 1,42491 и 2,0209

for

примеры

(Pascal)

for i := 1 to 10 do

  s:=s+1;

 

(C#,C++)

for (int i=0;i<10;i++) {

   s+=i;

}

 

(Ruby)

for i in 1..10

  s=s+i

end

 

(VB, VBA, Basic,..)

for i = 1 to 10

  s=s+i

next i

 

По умлчанию шагом счетчика является 1. Обычно шаг счетчика можно менять фразой by или step by. Хотя увы такое есть не во всех языках

 

(C#,C++)

for (int i=0;i<10;i=i+2) {

   s+=i;

}

 

(VB, VBA, Basic,..)

for i = 1 to 10 step by 2

  s=s+i

next i

 

Например в паскале возможен только обратный отсчет

for i := 10 downto 1 do

  s:=s+1;

 

еще for примечателен тем, что даже если конец меньше начала (в варианте увеличения счета), то цикл все равно пройдет один раз. Правда не знаю подпадают ли под это правило языки из группы С

Const   N = 10;   
var   a, S1, S2: Integer;   
i, Q1, Q2: Byte;   
begin   
S1 := 0; Q1 := 0;   
S2 := 0; Q2 := 0;  
writeln('Введите ', N, ' чисел:');   
for i := 1 to N do 
begin     
read(a);     
if a < 0 then 
begin      
S1 := S1 + a;       
inc(Q1)     
end;     
if a > 0 then 
begin       
S2 := S2 + a;       
inc(Q2)     
end;   
end;   
writeln;   
if Q1 > 0 then 
begin     
writeln('Сумма отрицательных чисел: ', S1);     
writeln('Количество отрицательных: ', Q1)   
end   
else 
writeln('Отрицательных нет');   
if Q2 > 0 then
begin     
writeln('Сумма положительных чисел: ', S2);     
writeln('Количество положительных: ', Q2)   
end   
else 
writeln('Положительных нет') 
end.