8класс!
Составить алгоритм сложения двух целых чисел F и N , вводимых с клавиатуры. Результат сложения записать в виде переменной Z . По данному алгоритму написать программу в Паскале.

Алгоритм

1) алг сложение
цел F,N,Z
нач
ввод F
ввод Z
N:=F+Z
вывод Z
кон

2) алг сложение
цел F,N,Z
нач
ввод F
ввод N
Z:=F+N
вывод Z
кон

3) алг сложение
цел F,N,Z
нач
ввод F
ввод N
Z=F+N
вывод Z
кон

Программа в Паскале

1) program summa;
var
F,N,Z:integer;
begin
readln(F);
readln(N);
Z:=F+N;
writeln(Z);

2) program summa;
var
F,N,Z:integer;
begin
readln(F);
readln(N);
Z:=F+N;
writeln(Z);
end.

3)program summa;
var
F,N,Z:integer;
begin
readln(F);
readln(N);
Z:=F+N;
writeln(F);
end.

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.

Алгоритм такой:

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 копеек).

Конец.