Программа:
Python:
import sys
max, min = -(sys.maxsize), sys.maxsize
c = 0
N = int(input('N = '))
print('Введите массив:')
arr = [int(input()) for i in range(N)]
for i in arr:
if len(str(i)) == 2 and i % 3 == 0:
if i < min: min = i
elif i > max: max = i
if max != -(sys.maxsize): print('Максимальное число:', max)
else: print('Нет максимального числа')
if min != (sys.maxsize): print('Минимальное число:', min)
else: print('Нет минимального числа')
Pascal:
var
arr: array of integer;
N, i, max, min, j, c: integer;
procedure Symv(j: integer; var c: integer);
begin
while j > 0 do begin
j := j div 10;
c += 1;
end;
end;
begin
max := -MAXINT;
min := MAXINT;
write('N = '); readln(N);
SetLength(arr, N);
writeln('Введите элементы массива:');
for i := 0 to N - 1 do readln(arr[i]);
writeln(arr);
for i := 0 to N - 1 do begin
Symv(arr[i], c);
if (c = 2) and (arr[i] mod 3 = 0) then begin
if arr[i] < min then min := arr[i]
else if arr[i] > max then max := arr[i]
end;
c := 0;
end;
if max <> -MAXINT then writeln('Максимальное число: ', max)
else writeln('Нет максимального числа.');
if min <> MAXINT then writeln('Минимальное число: ', min)
else writeln('Нет минимального числа.');
end.
var n,i:integer;
s:real;
begin
s:=0;
readln(n);
for i:=1 to n do
s:=s+1/i;
writeln('ответ ',s:10:5);
end.