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

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

program Lab3_Pascal
uses crt;

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

begi
// Ввод данны
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 d
begi
readln(arr[i])
if arr[i] > 0 the
positiveCount := positiveCount + 1
end
writeln('The number of positive numbers entered is: ', positiveCount);

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

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

end.