Алгоритм такой:
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 копеек).
Конец.
var
A: array[1..255] of integer;
N, i, min, k: byte;
begin
writeln(' Массив какого размера вы хотите задать? ');
write(' N = ');
readln(N);
writeln(' Введите ', N, ' элементов массива(через пробел):');
write(' ');
for i := 1 to N do
read(a[i]); //Вводим элементы массива
N := N div 2; //Количество четных номеров массива.
min := a[2]; //Минимальный элемент
k := 2; //и его начальный номер.
for i := 2 to N do
if a[2 * i] < min then //Если находится элемент меньше min,
begin
min := a[2 * i]; //то он становится минимальным.
k := 2 * i //Запоминаем номер минимального элемента.
end;
write(' Минимальный элемет среди четных');
writeln(' номеров равен: a[', k, '] = ', min)
end.
Поделитесь своими знаниями, ответьте на вопрос:
Решить в Паскаль: Найти максимальную полуразность двух соседних чисел(массивы)
// PascalABC.NET
begin
var n := ReadInteger('Длина массива (не менее 2):');
var a := ArrRandom(n, -99, 99);
a.Println;
var r := Abs(a[1] - a[0]);
for var i := 2 to n - 1 do
if Abs(a[i] - a[i - 1]) > r then
r := Abs(a[i] - a[i - 1]);
Print(r / 2)
end.