Создать массив из десяти целых чисел принадлежащие промежутку [0;25). вывести полученный массив на экран. посчитать К- количество элементов массива, значение которых превышает 12
Var
a:array[1..10] of integer;
k,i:integer;
Begin
Writeln(Массив);
for i:= 1 to 10 do Begin
a[i]:=random(25);
Write(a[i], );
if a[i]>12 then k:=k+1;
End;
writeln;
Write(Количество числе больших 12-ти = ,k);
End.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
