Заполнить массив случайными числами из промежутка (1-100) и определить в массиве Н[1 ... 30]кол-во чисел запись которых заканчивается единицей

Question

Ксения Третьякова

Информатика

25 апреля, 13:05

Заполнить массив случайными числами из промежутка (1-100) и определить в массиве Н[1 ... 30]кол-во чисел запись которых заканчивается единицей

+1

Ответы (1)

Знаешь ответ на этот вопрос?

Geofn · Answer 1

Program Program1; Var H:array [1 ... 30] of integer; i, k:integer; begin randomize; writeln ('Массив:'); for i:=1 to 30 do begin H[i]:=random (100) + 1; writeln ('H[', i,']=', H[i]); end; k:=0; for i:=1 to 30 do begin if H[i]=1 then inc (k) else if (H[i]>10) and (H[i] mod 10 = 1) then inc (k); end; writeln ('Чисел заканчивающихся единицей: ', k); end.