Решить задачу: Создать массив а из 10 целых чисел, принадлежащих промежутку [-10;25). Вывести полученный массив на экран. Подсчитать к - количество элементов массива, значение которых превышает 10.
Решить задачу: Создать массив а из 10 целых чисел, принадлежащих промежутку [-10;25). Вывести полученный массив на экран. Подсчитать к - количество элементов массива, значение которых превышает 10.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Program noname;
var
A : array [1..10] of integer;
i, k: integer;
begin
Randomize;
k:=0;
for i:=1 to 10 do
begin
A[i]:=round(random(35)-10);
Write(A[i],' ');
if A[i]>10 then k:=k+1;
end;
WriteLn('k=', k);
end.