составьте программу заполнения массива из 100 чисел случайными значениями из диапазона от -20 до 20 Паскаль.
5-9 класс
|
Program Massiv;
Uses Crt;
var a:array[1..100] of integer;
i:integer;
begin
write('Наш Массив:');
randomize;
for i:=1 to 100 do
begin
a[i]:=random (40) -20; // Заполняем очередной элемент массива случайным
write(a[i],' '); // Выводим элемент массива на экран
end;
readkey;
end.
Другие вопросы из категории
При перетаскивании окна
При изменении ширины окна
При изменении высоты окна
При одновременном изменении высоты и ширины окна
Компьютер занят
Действие невозможно
Читайте также
Составьте программу заполнения массива из 100 чисел случайными значениями из диапазона от -20 до 20. Подсчитайте в этом массиве количество положительных и количество отрицательных значений.
2. Составьте программу заполнения массива A(20) датчиком случайных чисел в диапазоне от -50 до 49 включительно.
3*. Составьте программу заполнения массива, не используя клавиатуру, числами: 1, 3, 5, 7, 9, 11, 13, 15, 17, 19.