1.
program MinElement;
var
X: array[1..30] of Integer;
i, min: integer;
begin
randomize;
for i := 1 to 30 do
X[i] := random(100);
min := X[1];
for i := 1 to 30 do
if X[i] < min then
min := X[i];
writeln('Минимальное число: ', min);
write('Все элементы:');
for i := 1 to 30 do
write(' ', X[i]);
readln;
end.
2.
program Summa;
var
X: array[1..20] of Integer;
i, sum: integer;
begin
randomize;
for i := 1 to 20 do
X[i] := random(100);
sum := 0;
for i := 1 to 20 do
sum := sum + X[i];
writeln('Сумма всех чисел: ', sum);
write('Все элементы:');
for i := 1 to 20 do
write(' ', X[i]);
readln;
end.
Всё правильно и проверено лично!
':8:2' означает, что будет выделено 8 полей для всего числа, из которых 2 поля будет для дробной части.
Если просто написать формулу, то это выглядит так: R=D/K
Т. к. а не может быть одновременно быть больше 1000 и меньше 100, никогда не выйдет 'Ошибка'
Дюйм- 2,54 см
10/2,54 = 3,9. Значит изображение 3,9 * 3,9 дюйм
Способность сканера 1200 dpi (а не 1200*1200)
3,9 * 1200 = 4680 пикселей
Получается изображение 4680*4680 = 21902400 пикселей
21902400 *24/8 = 65707200 байт = 62,66 Мб