Нужна помощь в отредактировании программы Паскаль. Нужно, чтобы выводилось максимальное среди двузначных элементов массива. Максимальное программа выводит, но где и как прописать, что элементы массива только двузначные?

program maxdvuz;

var i, n, i1:integer;

a:array[1 ... 1000] of integer;

amax:real;

begin

assign (input,'input. txt') ;

assign (output,'output. txt') ;

reset (input) ;

rewrite (output) ;

readln (n) ;

for i:=1 to n do read (a[i]) ;

amax:=a[1];

for i:=1 to n do

begin

if a[i]>amax then

begin

amax:=a[i];

i1:=i;

end;

end;

writeln (amax:0:0) ;

close (input) ;

close (output) ;

end.

Question

Информатика

Макар

13 августа, 19:54

Нужна помощь в отредактировании программы Паскаль. Нужно, чтобы выводилось максимальное среди двузначных элементов массива. Максимальное программа выводит, но где и как прописать, что элементы массива только двузначные?

program maxdvuz;

var i, n, i1:integer;

a:array[1 ... 1000] of integer;

amax:real;

begin

assign (input,'input. txt') ;

assign (output,'output. txt') ;

reset (input) ;

rewrite (output) ;

readln (n) ;

for i:=1 to n do read (a[i]) ;

amax:=a[1];

for i:=1 to n do

begin

if a[i]>amax then

begin

amax:=a[i];

i1:=i;

end;

end;

writeln (amax:0:0) ;

close (input) ;

close (output) ;

end.

+5

Ответы (1)

Знаете ответ на вопрос?

Рувим · Answer 1

В строчке

begin

if a[i]>amax then

begin

в условии добавь, что and (a[i] div 100=0) and (a[i] div 10>0)

первым условием отсеиваются трехзначные и более числа, во втором - однозначные