program var s: string; a:array[1..4] of integer; i:integer; begin read(s); for i:=1 to 4 do a[i]:=0;
for i:=0 to length(s) do begin if s[i]=')' then inc(a[1]); if s[i]='(' then inc(a[2]); if s[i]='!' then inc(a[3]); if s[i]='.' then inc(a[4]); end;
if(a[1]>a[2])and(a[1]>a[3])and(a[1]>a[4]) then write('Funny')else if(a[2]>a[1])and(a[2]>a[3])and(a[2]>a[4]) then write('Sad') else if(a[3]>a[2])and(a[3]>a[1])and(a[3]>a[4]) then write('Angry') else if(a[4]>a[2])and(a[4]>a[3])and(a[4]>a[1]) then write('Deep') else write('Unclear');
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
a, b : array [1..n] of integer;
i, max, min, p, imax, imin : integer;
begin
randomize;
writeln('исходный массив a[]:');
for i := 1 to n do
begin
a[i] := random(50) - 25;
write(a[i]:8)
end;
writeln;
{формируем и выводим новый}
{сразу осуществляем поиск максимума и минимума}
max := -1000; min := 1000;
writeln('новый массив b[]:');
for i := 1 to n do
begin
b[i] := a[i] * a[i] * a[i];
write(b[i]:8);
if b[i] > max then
begin
imax := i;
max := b[i]
end;
if b[i] < min then
begin
imin := i;
min := b[i]
end
end;
writeln;
{считаем произведение и выводим результаты}
p := max * min;
writeln('максимальный элемент нового массива - b[', imax, '] = ', max);
writeln('минимальный элемент нового массива - b[', imin, '] = ', min);
writeln('их произведение = ', p);
readln
end.