Паскаль. 1. Буратино купил n учебников по a сольдо и m ручек по b карандашей по n сольдо. a, b, m, n задаются с клавиатуры. Рассчитать общую стоимость покупки. 2. Среди трёх введённых чисел вывести количество положительных. 3. Найти сумму всех чисел от a до b. 4. Сгенерировать массив. Подсчитать число положительных чисел.

Предыдущий
вопрос Следующий
вопрос

program Lab3_Pascal;
uses crt;

var
a, b, m, n, cost, positiveCount, i, sum: integer;
arr: array[1..10] of integer;

begin
// Ввод данных
write('Enter the number of textbooks bought by Buratino: ');
readln(n);
write('Enter the cost of each textbook: ');
readln(a);
write('Enter the number of pens bought by Buratino: ');
readln(m);
write('Enter the cost of each pen: ');
readln(b);

// Вычисляем общую стоимость покупки
cost := na + mb;
writeln('The total cost of the purchase is: ', cost);

// Определяем количество положительных чисел среди трех введенных
positiveCount := 0;
write('Enter three numbers: ');
for i := 1 to 3 do
begin
readln(arr[i]);
if arr[i] > 0 then
positiveCount := positiveCount + 1;
end;
writeln('The number of positive numbers entered is: ', positiveCount);

// Вычисляем сумму всех чисел от a до b
sum := 0;
write('Enter two numbers (a and b): ');
readln(a);
readln(b);
for i := a to b do
begin
sum := sum + i;
end;
writeln('The sum of all numbers from ', a, ' to ', b, ' is: ', sum);

// Генерируем массив и считаем количество положительных чисел
for i := 1 to 10 do
begin
arr[i] := random(20) - 10;
if arr[i] > 0 then
positiveCount := positiveCount + 1;
end;
writeln('The number of positive numbers in the array is: ', positiveCount);

end.