1)надо написать 3 ан програмировании паскаль и составить - вопрос №576749313 от Куколка111 28.03.2022 02:28

Question

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

Куколка111 · Answer

1)var a: real; beginread(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;beginread (m);for i to m do beginread (a);if a max then max:=a;end;write (max);end.3)const n=10var a: array [1..n] of integer; i: integer;beginfor i to n dobeginread (a[i]);if (sqrt (A[i]*A[i])) 10 thenwrite (a[i]);end;end....