-•- (к)
--- (о)
-- (м)
•--• (п)
•- (а)
••• (с)
КОМПАС
Begin
for var i:=1 to 21 do
if (i mod 2 = 1) then
print(i);
end.
begin
for var i:=60 downto 10 do
if (i mod 2 = 0) then
writeln(i)
end.
var a,b: integer;
begin
readln(a,b);
for var i:=b downto a do
print(i*i*i);
end.
Есть переменная, равная 0 и есть цикл в котором сравнивается поочередно значения из массива и эта переменная, если значение переменной меньше, то переменная принимает значение данного элемента массива.
В итоге переменная содержит самое большое значение из массива.
<em>// PascalABC.NET 3.3, сборка 1633 от 10.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var k:=0;
var n:=ReadReal;
while n<>0 do begin
k+=1; Read(n)
end;
Writeln(NewLine,k)
end.
<u>Пример</u>
12
-12.53
0.345325
1532
-234534
0
5