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

Question

Информатика

Леля

11 марта, 18:51

Среди чисел 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.