Алгоритм такой:
1 шаг: определяем сколько мы получим денег за первые 75 газет.
Пусть n - всего газет, тогда (n-(n-75))*F = A, - рублей за первые 75 газет.
2 шаг: определяем кол.во копеек, которые мы получим за остальные газеты: (n-75)*X = B, - копеек.
Программа на естественном языке:
Переменные:
A, B : целые;
Начало
Введение n (число газет);
Введение F(цена за первые 75 газет);
Введение X(цена за последующие газеты);
A присвоить (n-(n-75))*F;
B присвоить (n-75)*X;
Вывод (Мальчик заработает A рублей B копеек).
Конец.
Program Begenjov1997;
const
n = 30; {Количество элементов массива}
m = 10000; {Максимально возможное значение элемента}
var
a:array[1..n] of integer;
i, sum: integer;
s:string;
begin
s:=' -=Alphaeus=- ';
for i:=1 to 22 do begin write(s[i]); sleep(60) end;
{заполняем массив случайными числами}
writeln; randomize;
for i:=1 to n do a[i]:=random(m+1);
{Ищем максимальный и минимальный элементы}
sum:=0;
for i:=1 to n do
if (a[i]<200) and (a[i] mod 5 = 0) then sum:=sum+a[i];
{Заменяем эти элементы найденной суммой}
for i:=1 to n do
if (a[i]<200) and (a[i] mod 5 = 0) then a[i]:=sum;
{Вывод}
writeln;
for i:=1 to n do writeln(a[i]);
end.
Слайд