Регистрация
accacherrygdghvcg
20.01.2020 20:58
Информатика
Есть ответ 👍

Кто не уверена что правильно сделала

291
479
Посмотреть ответы 1

Ответы на вопрос:

tesaf
tesaf
4,7(86 оценок)
Var   a : array of real;   i,  n, num  : integer; begin   write('количество чисел: ');   readln(n);   setlength(a, n);   for i : = 0 to n - 1 do   begin     write('a[', i + 1, '] = ');     readln(a[i]);   end;   num : = 0;   for i : = 0 to n - 1 do     if sqr(a[i]) < 10 then       inc(num);   writeln('таких чисел: ', num); end.

Популярно: Информатика