Дан массив целых чисел из n элементов заполненный случайным образом числами из промежутка[ -1000; 1000]. найти количество двухзначных элементов в pascal.

262

441

Посмотреть ответы 2

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

dasha00097

Информатика

4,4(15 оценок)

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.

улан291

Информатика

4,8(19 оценок)

Моря окружают материки. море напоминает степь. металл вытесняет дерево. поспешность увеличивает страх. серебро заменяет золото

150 000+ пользователей

Оформить подписку