Question

Помогите пожалуйста.
1)НАДО НАПИСАТЬ 3 ЗАДАЧИ АН ПРОГРАМИРОВАНИИ ПАСКАЛЬ И СОСТАВИТЬ ИХ БЛОК-СХЕМЫ.ЗАРАНЕЕ СПАСИБО))))))))
1. Вычислить стоимость покупки с учетом скидки. Скидка в 3% предоставляется в том случае, если сумма покупки больше 500 руб., в 5% — если сумма больше 1000 руб.
2. Даны M чисел. Вывести на экран наибольшее из чисел.
3. Дан одномерный массив размерностью 10, заполненный целыми числами, введенными с клавиатуры. Вывести на экран номер и значение элементов массива, абсолютное значение которых >10.

Answer 1

1)


var a: real;
begin
read(a);
if a>1000 then a:=a-a*0,05;
if (a>500) and (a<=1000) then a:=a-a*0,03;
write (a);
end.

2)


var a, max: real;
i, m: integer;
begin
read (m);
for i to m do
begin
read (a);
if a> max then max:=a;
end;
write (max);
end.


3)

const n=10
var a: array [1..n] of integer;
i: integer;
begin
for i to n do
begin
read (a[i]);
if (sqrt (A[i]*A[i]))>10 then
write (a[i]);
end;
end.