Найти количество всех элементов целочисленного массива, которые являются положительными двузначными числами. Паскаль.
Найти количество всех элементов целочисленного массива, которые являются положительными двузначными числами. Паскаль.
Гость
Ответ(ы) на вопрос:
ГостьVar
a:array[1..50] of integer;
i,c:integer;
Begin
for i:=1 to 50 do
Begin
a[i]:=random(300)-150;
write(a[i],' ');
if (a[i]>9) and (a[i]<100) then c:=c+1;
End;
Writeln;
write('Количество всех элементов этого массива, которые являются положительными двузначными числами равняется ',c);
End.
Гостьconst
N = 10;
var
a: array [1..N] of integer;
k,i: integer;
begin
k := 0;
//Для тестирования заполняем массив случайыми числми
for i := 1 to N do
begin
if (a[i]>9) and(a[i]<100) then k := k + 1;
write(a[i]:4);
end;
writeln;
writeln('Двузначных положительных: ', k);
end.
Не нашли ответ?
Похожие вопросы