Дан массив целых чисел из n элементов заполненный случайным образом числами из промежутка[ -1000; 1000]. найти количество двухзначных элементов в pascal.
GanifaGasanova505
3
04.10.2019 18:20
32
Другие вопросы по теме Информатика
Vanek11111100
11.06.2020 10:02
brayamsp0altc
11.06.2020 09:59
егор1481
11.06.2020 09:57
leria11111111111
03.12.2021 00:59
PandaVo
03.12.2021 00:47
папенко
03.12.2021 00:40
Рикон1
23.12.2020 11:13
kopulenkodimasGAS
23.12.2020 11:13
Популярные вопросы
- Оригинальность опыта л. пастера заключалась в том, что он использовал:...
2 - Какая начальная форма у слова по ельничкам....
3 - Изменить словосочетание так чтобы получилось слово с непроизносимыми...
1 - Впрогрессии найдите x6, если x3=1/27 и x5=1/243...
3 - Звуко-буквенный анализ слова -черная...
2 - Узнай массу приготовленного блюда,если для его приготовления маме...
2 - Был бы выбор у герасима чтобы собаку...
3 - Цветки имеющий только тычинки называют...
2 - Проверьте равенство (13-8)*4=4*5. раздели обе части равенства 1)...
2 - 2предложения про профессии врача и воспитателя. ....
1
const N = 1000;
var A: array [1..N] of integer;
i,k: integer;
begin
k:=0;
for i:=1 to N do
A[i]:=random(2001)-1000;
for i:=1 to N do
if ((A[i]>=10) and (A[i]<=99)) or ((A[i]>=-99) and (A[i]<=-10)) then
k:=k+1;
writeln(k);
end.