2) напишите программу, вычисляющуюплощадь и периметр прямоугольника. если х=1,то s=a*b; если х=2, то p=2*(a+b); если х=3, то«выход».3) создать и напечатать одномерный массивслучайными числами от 0 до 15 и вывести наэкран те из них, которые больше 10.4) имеются данные об успеваемости 10учащихся. определите средний уровеньуспеваемости. решить с применениямассива.5) чему будут равны переменныеx: =0for i: =-2 to 0 don: =iti; x: =x+n;
program amountn;
var
amount, n, number, i: integer;
begin
amount := 0;
write('Введите количество чисел: ');
read(n);
for i := 1 to n do
begin
read(number);
amount := amount + number;
end;
writeln('Сумма n чисел: ', amount);
end.
Объяснение:
program amountn; // Название программы
var
amount, n, number, i: integer; // Целочисленные переменные:
amount - сумма чисел;n - количество чисел;number - сами числа;i - счетчик для цикла for.begin // Начало программы
amount := 0; // Переменная, хранящая сумму, = 0
write('Введите количество чисел: '); // Вывод сообщения в консоль
read(n); // Считываем количество чисел с клавиатуры
for i := 1 to n do // Идём с единицы до n (цикл для ввода n чисел)
begin // Начало цикла
read(number); // Считываем число с клавиатуры
amount := amount + number; // К переменной, хранящей сумму, прибавляем число
end; // Конец цикла
writeln('Сумма n чисел: ', amount);
end. // Конец программы