Delphi

[svoi92]

1_ Даны целое n>0 и последовательность из n вещественных чисел, среди которых есть хотя бы одно отрицательное число. Найти величину наибольшего среди отрицательных чисел этой последовательности.

2_ Задана символьная матрица размером NxM. Определить k - количество различных элементов матрицы (т.е. повторяющиеся элементы считать один раз).

3_ Элементы массива X циклически сдвинуть на k позиций влево.

[Косюра]

2_ Задана символьная матрица размером NxM. Определить k - количество различных элементов матрицы (т.е. повторяющиеся элементы считать один раз).

uses
  SysUtils;

const
NN=10; // Например
MM=15;

type
Digit = set of Char;
var
A: array [1..NN,1..MM] of Char;
N,M,I,J,K: Integer;
S: Digit;

begin
Write('Введите N и M');
ReadLn(N,M);
WRiteLn('Введите матрицу');
for I:=1 to N do
begin
for J:=1 to M do
begin
Read(A[I,J]);
if A[I,J]=' ' then Read(A[i,j]);
end;
ReadLn;
end;
S:=[];
K:=0;
for I := 1 to N do
for J := 1 to M do
if not(A[i,j] in S) then
S:=S+[A[I,j]]
else
K:=K+1;
WriteLn('K=',K);
ReadLn;
end.

[Косюра]

Задача первая.

const
NN=10; // Например

var
A: array [1..NN] of Real;
N,I: Integer;
max: real;
begin
Write('Введите N : ');
ReadLn(N);
for I:=1 to N do
Read(A[I]);
Max:=0;

for I := 1 to N do
if A[i]<0 then
begin
if max=0 then max:=a[i];
if a[I]>Max then Max:=A[I];
end;

if max = 0  then
writeLn('отрицательных элементов нет')
else
WriteLn(max:4:2);

ReadLn; readln;
end.