1)Дан массив а(10), заполненный датчиком случайных чисел. Найти сумму минимального и максимального элементов массива.
2)Дан целочисленный массив а(10), заполненный датчиком случайных чисел. Найти максимальный элемент массива среди четных элементов.
Решить в двухмерном массиве.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var current, past, sum: real;
i, n: integer;
begin
current : = 10;
for i : = 1 to 10 do begin
writeln(i, ' ', current);
past : = current;
current : = current * 1.1;
end;
current : = 10; sum : = 0;
write('n = ');
read(n);
for i : = 1 to n do begin
sum : = sum + current;
past : = current;
current : = current * 1.1;
end;
writeln('за ', n, ' дней: ', sum);
end.
32
Объяснение:
Данная программа прибавляет к переменной s 128, а еще увеличивает переменную n в два раза, и все это до тех пор пока s меньше или равняется 1024. То есть, эти изменения переменных прекратятся, когда условие цикла не будет выполнено (а именно, когда s станет больше 1024). И после того, как это произойдет программа выведет значение переменной n (как раз то, что нам нужно узнать!)
Итак, запустим программу:
n = 1
s = 0
Условие цикла выполняется (s меньше или равняется 1024)? Да.
Выполняется цикл.
После цикла:
n = 2
s = 128
Условие цикла выполняется (s меньше или равняется 1024)? Да.
Выполняется цикл.
После цикла:
n = 4
s = 256
Условие цикла выполняется (s меньше или равняется 1024)? Да.
Выполняется цикл.
После цикла:
n = 8
s = 512
Условие цикла выполняется (s меньше или равняется 1024)? Да.
Выполняется цикл.
После цикла:
n = 16
s = 1024
Условие цикла выполняется (s меньше или равняется 1024)? Да.
Выполняется цикл.
После цикла:
n = 32
s = 2048
Условие цикла выполняется (s меньше или равняется 1024)? Нет (наконец-то!).
Цикл перестает выполнятся, и программа пишет значение n, которое равняется (смотрим выше) 32.
На экране напечатано 32, все живы, все счастливы!