Определить максимальное значение среди положительных элементов из n введеных

Program gt; var a,i,n,max: longint; begin read(n); max: =0; for i: =1 to n do begin read(a); if(a> max)then max: =a; end;   if(max=0)then writeln('положительных чисел нет')else writeln(max); end.

uses crt;

var s:string;

i,k:byte;

begin

repeat

writeln('Введите строку из 20 символов');

read(s);

until length(s)=20;

k:=0;

writeln('Строчные латинские буквы, входящие в строку');

for i:=1 to length(s) do

if s[i] in ['a'..'z'] then

begin

write(s[i]);

k:=1;

end;

if k=0 then write('Строчных латинских букв нет')

end.

uses crt;

var s:string;

i,k:byte;

begin

repeat

writeln('Введите строку из 20 символов');

read(s);

until length(s)=20;

k:=0;

writeln('Замены макс на мин и max на min');

for i:=length(s)downto 1 do

if copy(s,i,4)='макс' then

begin

delete(s,i,4);

insert('мин',s,i);

k:=k+1;

end

else if copy(s,i,3)='max' then

begin

delete(s,i,3);

insert('min',s,i);

k:=k+1;

end;

writeln(s);

if k=0 then write('Замен нет')

else write('Количество замен=',k)

end.

1) А = Число 376 четное. В = Число 376 трехзначное.  

   А ∧ В

2) А = Зимой дети катаются на коньках. В = Зимой дети катаются на лыжах

   А ∨ В

3) А = Новый год мы встретим на даче. В = Новый год мы встретим на красной площади  

   А ∨ В

4) А = Солнце движется вокруг земли

  НЕ А

5) А = Земля имеет форму шара. В = шар из космоса кажется голубым

 А ⇒ В

6) А = На уроке математики старшеклассники отвечали на вопросы учителя.

В =  На уроке математики старшеклассники писали самостоятельную работу

  А ∧ В

Объяснение:

во