Найти сумму и количество двузначных элементов массива - Turbo Pascal
Формулировка задачи:
Дан массив случайных чисел производной размерности.Найти сумму и количество двузначных элементов массива.
Желательно решить задачу через Randome как то так по моему)
Решение задачи: «Найти сумму и количество двузначных элементов массива»
textual
Листинг программы
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(200);
write(a[i]:4);
if a[i] in [10..99] then
begin
k:=k+1;
s:=s+a[i];
end;
end;
Объяснение кода листинга программы
Исходный массив:
- Выводится сообщение «Исходный массив:»
- Запускается цикл for, который выполняется от 1 до n (предполагается, что n заранее задано и известно)
- Для каждого элемента массива i от 1 до n выполняется: — a[i]:=random(200); — элемент i массива a присваивается случайное число от 0 до 199 — write(a[i]:4); — выводится значение элемента i массива a — если значение элемента i массива a находится в диапазоне от 10 до 99, то: — k:=k+1; — увеличивается значение переменной k на 1 — s:=s+a[i]; — увеличивается значение переменной s на значение элемента i массива a
- Выводится сообщение «Сумма двузначных элементов: k, сумма двузначных элементов: s».