Предмет: Информатика,
автор: denilarsanov63
Дан массив из 10 чисел. Напишите программу для нахождения количества двузначных чисел.
Ответы
Автор ответа:
1
Ответ:
program z1;
var a:array[1..10] of integer;
i,k:integer;
begin
k:=0;
write('Массив: ');
for i:= 1 to 10 do
begin
a[i]:=random(333);
write(a[i],' ');
if (a[i]>9) and (a[i]<100) then k:=k+1
end;
writeln;
write('Количество двузначных чисел: ',k)
end.
Объяснение:
Двузначные числа от 10 до 99 (отрицательные не учитываем).
Похожие вопросы
Предмет: Русский язык,
автор: dianaskutina561
Предмет: Қазақ тiлi,
автор: anyapactec
Предмет: Қазақ тiлi,
автор: ur4gus
Предмет: Биология,
автор: AnitaAnitaAnitaAnita
Предмет: Математика,
автор: 12312312311223