var
a: array [1..4] of string;
s: string := 'бвгджзйклмнпрстфхцчшщъь';
i, j: byte;
begin
for i := 1 to 4 do
readln(a[i]);
for i := 1 to 4 do
for j := 1 to length(a[i]) do
delete(s, pos(a[i][j], s), 1);
writeln();
writeln(s);
end.
>котики
>это
>несказанное
>добро
>вгжйлмпфхцчшщъь
Я думаю что: 4,5,7,8,12
Ну я так понял)
Как начать работу в интернете ?
Считываем сколько чисел получим(или сами решаем чему равно n), делаем цикл на считывание каждого, ищем в них мин и макс.
VAR N, i:integer;
k, min, max:real;
begin
readln(N);
for i:=1 to N do begin
readln(k);
if i=1 then begin min:=k; max:=k end
else if k<min then min:=k
else if k>max then max:=k;
end;
writeln(min-max);
end.