//2.75
Begin
var t: array[1..20] of real;
var n, i: integer;
var max: real;
max := 0;
write('Vvedite kol-vo elementov massiva: ');
readln(n);
for i := 1 to n do
begin
write('Vvedite T(',i,'): ');
readln(t[i]);
if (t[i] > max)AND(t[i] > 0) then
max := t[i];
end;
if max = 0 then
writeln('Net polozhitelnih elementov!')
else
writeln('Naibolshij polozhitelnij element - ', max);
End.
Comments
0 B
|👍
/👎
0 B
|👍
/👎