Задачи и блок схемы в документе, времени на 3 задачу, попробуй сама.
Var
a,b,c,s,k,x,q,f:real;
begin
write('Vvedite a,b,c: ');
readln(a,b,c);
s:=-b+c-5;
k:=-3*a;
q:=-a*3;
f:=-b+c-5;
begin
If (q<0) and (f<0) then
writeln('x','<',s/k)
else
writeln('x',' >',s/k);
end;
end.
Type
V = array of integer;
var
i, n, ic, nc, kc, imax, nmax, kmax: integer;
a: V;
begin
write('Введите количество чисел N ');
readln(n);
SetLength(a, n + 1);
writeln('Вводите числа');
for i := 0 to n - 1 do read(a[i]);
writeln;
nmax := -32768;
kmax := 0;
imax := 0;
nc := a[0];
kc := 1;
ic := 1;
for i := 1 to n - 1 do
begin
if a[i] = nc then kc := kc + 1
else begin
if kc < 3 then begin
kc := 1;
nc := a[i];
ic := i
end
else
if kmax <= kc then begin
kmax := kc;
nmax := nc;
imax := ic;
kc:=1;
nc:=a[i];
ic:=i
end
else begin
kc := 1;
nc := a[i];
ic := i
end
end
end;
if kmax <= kc then begin
kmax := kc;
nmax := nc;
imax := ic
end;
writeln('Самая длинная серия содержит ', kmax, ' чисел ', nmax);
for i:=n downto imax+kmax+1 do a[i]:=a[i-1];
a[imax+kmax]:=nmax;
writeln('Модифицированная строка');
for i:=0 to n do write(a[i]:2)
end.
Тестовое решение
Введите количество чисел N 30
Вводите числа
1 2 2 3 4 4 4 5 5 5 6 8 6 6 6 4 8 8 8 8 8 8 3 3 3 3 1 2 3 3 3
Самая длинная серия содержит 6 чисел 8
Модифицированная строка
1 2 2 3 4 4 4 5 5 5 6 8 6 6 6 4 8 8 8 8 8 8 8 3 3 3 3 1 2 3 3
Var
a:array[1..1000] of integer;
n, i, suma:integer;
begin
write('введите количество чисел массива ');
readln(n);
suma:=0;
for i:=1 to n do
begin
a[i]:=random(101)-70;
if(a[i]<0) then
suma:=suma+a[i];
end;
write('массив ');
for i:=1 to (n-1) do
write(a[i],', ');
writeln(a[n],' ');
writeln('сумма отрицательных элементов ',abs(suma));
end.
