1)надо написать 3 ан програмировании паскаль и составить их блок-схемы.заранее 1. вычислить стоимость покупки с учетом скидки. скидка в 3% предоставляется в том случае, если сумма покупки больше 500 руб., в 5% — если сумма больше 1000 руб. 2. даны m чисел. вывести на экран наибольшее из чисел. 3. дан одномерный массив размерностью 10, заполненный целыми числами, введенными с клавиатуры. вывести на экран номер и значение элементов массива, абсолютное значение которых > 10.
Puma20050412
3
31.07.2019 05:50
0
Другие вопросы по теме Информатика
АнастасияПобиленская
28.01.2022 16:12
ника2760
28.01.2022 16:15
Farpli
16.09.2019 12:30
Алексей28111
16.09.2019 12:30
thenotoriioussmma
16.09.2019 12:30
armvos
16.09.2019 12:30
nomakade
16.09.2019 12:30
davidmarabyan
16.09.2019 12:30
Популярные вопросы
- Circle the things you can find on a tropical island. Обведи то, что можно найти...
1 - Write what you have to do and what you don’t have to do at home. — Напишите,...
3 - Now give answers to the above questions. Get ready to ask same questions in...
2 - Complete the questions with how many or how much. – Дополните вопросы словами...
1 - Listen and fill in the missing words. – Послушайте и дополните пропущенные слова....
2 - Draw a picture of your house and talk about it to your friends. — Нарисуйте...
2 - Look at the picture and think of five things which you don’t see in Maxim’s...
1 - A memory game. What can you remember about the picture of the tropical house...
3 - Use the words house or home in these sentences. — Используйте слова house или...
2 - Listen to the song. Would you like to go to this island? — Прослушайте песню....
2
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.