Program fury; // название программы const // объявление константы n=10; // сама константа n var //объявление переменных a:array[1..n]of integer; // (сами переменные) объявлен массив а от 1 до n // типа integer ( целые числа от −2 147 483 648 до 2 147 483 647 ) min,max,i,s:integer; // объявлены переменные min , max,a,s - названия , // типа integer begin // начало for i:=1 to n do // цикл который выполняет повторно действие до тех пор, // пока условное значение не станет false (т.е число не превысит n); read(a[i]); //cчитывет значение массива а . [i] в квадратных скобках // означает индекс числа . т.е a[1] - первое число массива min:=1;max:=1; // присваивает переменным min и max значение 1 for i:=2 to n do // уже описывал begin if a[i] min:=i; // оператор сравнения , если условие подходит входит // в цикл if a[i]>a[max]then // оператор сравнения , если условие подходит входит // в цикл max:=i; // присваивает max значение i end; // конец if max>min then / оператор сравнения , если условие подходит входит // в цикл for i:=min to max do // описывал s:=s+a[i] // к переменной s добавляет элемент a[i] else // если условие if не выполнилось for i:=max to min do // s:=s+a[i]; // writeln(' S= ',s); // напечатать на новой строке то чему равно s end.
Задача 7. ВОДОЛАЗКА Задача 2. после 6 применений 64 четных цифры (после каждого применения их количество увеличивается в 2 раза) Задача 1. не может быть Даша второй, т.к. это утверждение в 4 и 5 строках. Не может быть третьей Ира (предполагается в 3 и 5 строках). Значит первая Маша. А Даша и Ира - не призеры. Из 4-й строки получаем. что и Боря не призер. Из 1 и 3 строки получаем, что Вася - не призер (т.к. указано что Вася второй и Вася третий). Значит призер Таня (не первая и не третья, значит - вторая). Из 2 строки получаем, что и Гена не призер. Остается Антон - третий ответ: Маша, Таня, Антон Задача 3. Всего можно составить 60 трехзначных чисел. Числе. меньших 200, 12. Вероятность 12/60=0,2 Задача 9. 16 Задача 4. Можно (Земля-Марс-юпитер-Венера-Меркурий) Задача 6. 370 343 640 613 910 901 271 253 550
