Программа заполнения массива из 100 чисел случайными значениями из диапазоа от -20 до 20. (паскаль)
5-9 класс
|
const
n = 100;
var
a:array[1..100] of integer;
i:integer;
begin
randomize;
for i := 1 to n do
begin
a[i] := random(41) - 20;
write(a[i], ' ');
end;
writeln;
end.
Другие вопросы из категории
У меня при установке игр вылазит какаето "хрень".
Я устанавливаю игру, она устанавливается отлично!
НО! когда я ее уже открываю, вылазит вот такая штуковина: (фото; по центру)
Помогите пожалуйста! Так происходит только с играми из дисков.
Я уже не знаю что делать. Скажите что это и как можно от этого избавиться!?
"Свеча горела на столе,
Свеча горела...",закодированного в Unicode.
Читайте также
Составьте программу заполнения массива из 100 чисел случайными значениями из диапазона от -20 до 20. Подсчитайте в этом массиве количество положительных и количество отрицательных значений.
1)Составить программу вывода на экран одномерного массива из пяти чисел,заполненного с клавиатуры
2)Составить программу вывода на экран одномерного массива из пяти чисел(числа в интервале от 0 до 100),заполненного случайным образом
3)найти минимальный элемент массива использованный случайным образом
Помогите пожалуйста.....