Нужно написать программу на PascalABC. Вводится n чисел, найти максимальное двуз...

June 2021 1 23 Report

Нужно написать программу на PascalABC.
Вводится n чисел, найти максимальное двузначное среди них.

Answers & Comments

dfubyf Var
n,max,i,a : longint;
begin
readln(n); {количество чисел}
max:=0; {чтобы вывести 0 если нет двухзначных}
for i:=1 to n do
    begin
      readln(a); {хранить массив не надо т.к. он нигде не требуется}
      if (a>9) and (a<100) and (a>max)
        then max:=a;
    end;
if max>0
    then writeln(max)
    else writeln('нет двухзначных чисел')
end.

1 votes Thanks 1

Levka228 Спасибо!!!

forma socialnoj organizacii v kotoroj glavenstvuyushaya rol prinadlezhit zhenshine

Answer

Levka228 July 2022 | 0 Ответы

Answers & Comments

forma socialnoj organizacii v kotoroj glavenstvuyushaya rol prinadlezhit zhenshine

pomogiteded7075d0a5f5d6e63689dcdbe311337 76908

nuzhno razlozhit na mnozhiteli pomogite pozhalujsta 1 2x2x y2 2xy3

pomogite reshit sistemu uravnenijd444f4e68936071582ff7e5a6d4dca47 61143

pomogite pozhalujsta s resheniem nuzhno vychislit

pomogite reshit nuzhno razlozhit na mnozhiteli otvet dolzhen poluchitsya aba 4

pomogite pozhalujsta nuzhno razlozhit na mnozhiteli s resheniem esli ne trudno

pomogite reshit pozhalujsta s resheniem budu blagodaren

pomogite reshit pozhalujsta s resheniem7350c9539d4232dcb2d7ac2a04915f2a 49974

pomogite pozhalujsta reshit s resheniem859d309bcd5c530f0df560fc897d371a 68766

рекомендуемые вопросы

Helpful Links

Helpful Social