Программа заполнения массива из 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.
Другие вопросы из категории
принимать переменная Х, после выполнения фрагмента программы:
f:=5; d:=7;
If f>=d
then x:=f else
x:=d
поисковую систему компьютера. Какие имена файлов найдет компьютер из ниже перечисленных?
1/ helo.doc
2/hello.doc
3/Helolo.doc
4/Hello.doc
3) если они находятся в разных папках;
4)если они совершенно одинаковые.
Читайте также
Составьте программу заполнения массива из 100 чисел случайными значениями из диапазона от -20 до 20. Подсчитайте в этом массиве количество положительных и количество отрицательных значений.
1)Составить программу вывода на экран одномерного массива из пяти чисел,заполненного с клавиатуры
2)Составить программу вывода на экран одномерного массива из пяти чисел(числа в интервале от 0 до 100),заполненного случайным образом
3)найти минимальный элемент массива использованный случайным образом
Помогите пожалуйста.....