1)надо написать 3 ан програмировании паскаль и составить их блок-схемы.заранее 1. вычислить стоимость покупки с учетом скидки. скидка в 3% предоставляется в том случае, если сумма покупки больше 500 руб., в 5% — если сумма больше 1000 руб. 2. даны m чисел. вывести на экран наибольшее из чисел. 3. дан одномерный массив размерностью 10, заполненный целыми числами, введенными с клавиатуры. вывести на экран номер и значение элементов массива, абсолютное значение которых > 10.
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.