Среди чисел 1, 2, 4, 8 найти первое большее к и вывести на экран

Question

Информатика

Натоха

16 апреля, 21:29

Среди чисел 1, 2, 4, 8 найти первое большее к и вывести на экран

+5

Ответы (1)

Знаете ответ?

Карл · Answer 1

Var

a, b, c:integer;

d:array [1 ... 4] of integer;

Begin

d[1]:=1;

d[2]:=2;

d[3]:=4;

d[4]:=8;

for a:=1 to 4 do

if d[a]>b then b:=d[a];

writeln ('Большее число - ', b) ;

End.