Uses crt; var r: array [1..10] of integer; nev, n, min,i, zap:integer; begin clrscr; write('Введите возраст невесты: '); readln(nev); write('Введите число женихов: '); readln(n); if n<2 then for i:=1 to n do begin write('Введите возраст ',i,'-го жениха: '); readln(r[i]); end;
i:=0; zap:=0; while (zap=0) and (i<=n) do begin i:=i+1; min:=nev-r[i]; if min>0 then zap:=i; end; if i<>n then begin for i:=zap to n do begin if min>(nev-r[i]) then begin zap:=i; min:=nev-r[i]; end; end; writeln('Самый молодой жених старше невесты в возрасте ',r[zap], ' лет. Разница в возрасте составляет ', min, ' лет.'); writeln ('По счету это ',i,'-ый жених'); end else writeln('Среди женихов нет подходящего для нашей невесты.'); end; else writeln('Число женихов должно быть более 2!'); end.
Const nn = 100; { максимальное количество элементов } var a:array[1..nn] of integer; i,n,k,kn,kp,ko,ke: integer; begin Writeln('Введите количество элементов в массиве (n<=100): '); Readln(n); Writeln('Введите элементы массива'); kn:=0; kp:=0; ko:=0; ke:=0; for i := 1 to n do begin Read(k); a[i]:=k; if k>0 then Inc(kp) else if k<0 then Inc(kn); if (k mod 2)=0 then Inc(ke) else Inc(ko) end; Writeln('Положительных элементов ',kp,', отрицательных ',kn); Writeln('четных элементов ',ke,', нечетных ',ko); end.
Тестовое решение: Введите количество элементов в массиве (n<=100): 13 Введите элементы массива 16 -5 8 21 0 -5 13 32 7 11 -4 2 -5 Положительных элементов 8, отрицательных 4 четных элементов 6, нечетных 7
