Если намазать жёлтого плюхря горчицей, то утром следующего дня он разделится на два. Утром третьего дня те два жёлтых плюхря тоже разделятся на два. Это будет продолжаться целую неделю. Если намазать синего плюхря горчицей, то утром третьего дня их станет два. Утром пятого и седьмого дня те плюхри, которые получились из намазанного горчицей синего плюхря, тоже разделятся на два.
Если красного плюхря намазать горчицей, то делиться он будет как синий, только каждый раз не на двух, а на трёх отдельных плюхрей.
Сколько у нас будет плюхрей в середине 7-го дня, если мы намажем горчицей двух жёлтых, одного синего и трёх красных плюхрей

1.

program n1;

var

k, s: integer;

a: array [1..8] of integer;

begin

for k := 1 to 8 do readln(a[k]);  // с клавиатуры вводится массив из 8

s := 0;                                           элементов

for k := 1 to 8 do

if a[k] < 0 then s := s + a[1];  // в цикле 4 раза к s прибавляют 1-ый элемент

writeln(s);                             // выводится s

end.

ответ: 4(т.к 1-ый элемент массива 1 и в нём 4 отрицательных элемента)

2.  

Надо строку if a[k] < 0 then s := s + a[1];

Заменить на строку if a[k] < 0 then s := s + a[k];

Объяснение:

Лучше скачайте прикреплённый файл, так как здесь всё слилось))
1) varA, B: integer;beginreadln(A);readln(B);if (A>B) then writeln(A)else writeln(B);end.2)varA, B: integer;beginreadln(A);readln(B);if (A>B) then writeln(B)else writeln(A);end.3)varA, B: integer;beginreadln(A);readln(B);if (A>B) then  beginwriteln (A, ' - максимальное число');writeln (B, ' - минимальное число');end;if (B>A) then beginwriteln (B, ' - максимальное число');writeln (A, ' - минимальное число');end;end.4)varA, B, c, d: integer;beginreadln(A);readln(B);c:= A+2*B;d:= 3*A-B;if (c>d) then  writeln ('A+2B > 3A-B')else writeln ('3A-B > A+2B');end.
Воот))