Вопрос по информатике:
Помогите решить.Массивы Паскаль. Имеется массив А из N произвольных чисел А(N), среди которых есть положительные, отрицательные и равные нулю. Вычислить количество чисел, квадрат которых меньше 10. Так, если А={2,4,–3,3,5,–2,1}, результат: 5 (это числа 2, –3, 3, –2, 1).
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 26.09.2018 16:23
- Информатика
- remove_red_eye 16161
- thumb_up 122
Ответы и объяснения 1
uses crt;
var
a:array [1..100] of real;
i,n,k:integer;
begin
write('Введите количество чисел массива: '); read(n);
clrscr;
writeln('Массив:');
for i:=1 to n do
begin
a[i]:=random(21)-10;
if (sqr(a[i])<10) then k:=k+1;
write(a[i],' ');
end;
writeln;
write('Количество чисел, квадрат которых меньше 10: ',k);
end.
- 27.09.2018 07:10
- thumb_up 23
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.