паскаль. заполнить массив случайными числами от -20 до 20. вывести на экран. все отрицательные числа заменить на 5
5-9 класс
|
program chik;
var a:array[1..1000]of integer;
i,n:integer;
begin
readln(n);
randomize;
for i:=1 to n do
begin
a[i]:=random(41)-20;
if(a[i]<0)then a[i]:=5;
end;
for i:=1 to n do
write(a[i],' ');
end.
Другие вопросы из категории
составьте программу которая заполняет массив A[1..10] случайными целыми числами в диапазоне от 1 до 10 и вычисляет сумму элементов массива с нечётными значениями
введите элементы массива A[1..10] с клавиатуры и вычеслите количество элементов с чётными положительными значениями
столбике составьте слова,связанные с информатикой и компьютером.
1. овод,диск
2. детка,си
3. миф,нота,икра
4.ель,писк
5. сор,процесс
6. кол,кони
7. грамм,порог
8. бег,май,та
Составьте таблицу значений
функций:
Читайте также
паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль
2 найти количество четных чисел начиная с числа 20 до 60
3 найти сумму нечетных чисел от 100 до 150
паскаль
Подсказска:
i это текущие значения
N до M значит от начала до конца , начальное число N, концовое M
mod использоватсья надо, поомгите пожалуйста, отблагодарю