Самостоятельно разработайте программу, позволяющую определить, все ли элементы массива являются двузначными числами. Выполните её на компьютере для рассматриваемого в примере 8 массива , состоящего из семи элементов.
По примеру integer.
program AllTwoDigit;
const n = ;
var a: array[ ..n] of integer;
i, k: integer;
begin
for i := to n do read(a[i]);
k := ;
for i := to n do
if ((a[i] >= ) and (a[i] <= )) or
((a[i] >= - ) and (a[i] <= - )) then
k := k + ;
if k = n then writeln('Все элементы двузначные')
else writeln('Не все элементы двузначные')
end.
В массиве k=n ложно. Числа
Нет: двузначны Не все элементы двузначные.
