Реализация на VBA Excell Если есть офис, то можете запустить программу. Код увидеть Alt+F11
Sub massiv() строка = 3 'не обязательно,номер строки для начала вывода на лист n = Cells(2, 3) 'не обязательно, вводим количество чисел Dim B(10000) As Integer 'резервируем память на 10000 целых чисел S = 0 'обнуляем сумму For i = 1 To n 'Начало цикла k = Rnd(1) 'Генерируем случайное число в диапазоне (0;1) k = k * 9 + 12 'Смещаем его в диапазон [12;20] k = Int(k) 'обрезаем, оставляя целое B(i) = k 'заполняем массив S = S + k 'считаем сумму Cells(строка, 3) = строка - 2 'не обязательно, вывод номера значеня Cells(строка, 4) = k 'Не обязательно вывод значения строка = строка + 1 'не обязательно, увеличить строку для вывода Next i 'Конец цикла Cells(строка, 3) = "сумма =" 'не обязательно, выводим надпись Cells(строка, 4) = S 'не обязательно, выводим сумму End Sub
Begin
s:=18;
ke:=1;
v:=100;
Writeln('Тормозной путь автомобиля: ',s,' м');
Writeln('Тормозной коэффичиент: ',ke);
Writeln('Скорость авто в начале торможения ',v,' км/ч');
Writeln('Коэффициент сцепления с дорогой');
Writeln;Writeln('Введите показатель погодных условий: ');
Writeln('Варианты:');
Writeln('0.7-сухой асфальт');
Writeln('0.4-мокрая дорога');
Writeln('0.2-укатанный снег');
Writeln('0.1-обледенелая дорога');
Readln(fc);
S:=ke*v*v/(254*fc);
Writeln('скорость автомобиля по его тормозному пути: ',s);
end.
Если есть офис, то можете запустить программу.
Код увидеть Alt+F11
Sub massiv()
строка = 3 'не обязательно,номер строки для начала вывода на лист
n = Cells(2, 3) 'не обязательно, вводим количество чисел
Dim B(10000) As Integer 'резервируем память на 10000 целых чисел
S = 0 'обнуляем сумму
For i = 1 To n 'Начало цикла
k = Rnd(1) 'Генерируем случайное число в диапазоне (0;1)
k = k * 9 + 12 'Смещаем его в диапазон [12;20]
k = Int(k) 'обрезаем, оставляя целое
B(i) = k 'заполняем массив
S = S + k 'считаем сумму
Cells(строка, 3) = строка - 2 'не обязательно, вывод номера значеня
Cells(строка, 4) = k 'Не обязательно вывод значения
строка = строка + 1 'не обязательно, увеличить строку для вывода
Next i 'Конец цикла
Cells(строка, 3) = "сумма =" 'не обязательно, выводим надпись
Cells(строка, 4) = S 'не обязательно, выводим сумму
End Sub