Var k, m: integer;

Dat: array[1 ... 10] of integer;

Begin

Dat[1] : = 16; Dat[2] : = 20;

Dat[3] : = 20; Dat[4] : = 41;

Dat[5] : = 14; Dat[6] : = 21;

Dat[7] : = 28; Dat[8] : = 11;

Dat[9] : = 15; Dat[10] : = 35;

m : = 50;

for k : = 1 to 10 do

if Dat[k]

Question

Петряша

3 сентября, 00:31

+1

Ответы (1)

Знаете ответ на вопрос?

Ираида · Answer 1

Ираида 3 сентября, 02:16

0

Ответ задачи равно 11

Var k, m: integer;Dat: array[1 ... 10] of integer;BeginDat[1] : = 16; Dat[2] : = 20;Dat[3] : = 20; Dat[4] : = 41;Dat[5] : = 14; Dat[6] : = 21;Dat[7] : = 28; Dat[8] : = 11;Dat[9] : = 15; Dat[10] : = 35;m : = 50;for k : = 1 to 10 doif Dat[k]