Статистика
Всего в нашей базе более 4 327 664 вопросов и 6 445 979 ответов!

паскаль. заполнить массив случайными числами от -20 до 20. вывести на экран. все отрицательные числа заменить на 5

5-9 класс

Andreevada75 22 нояб. 2013 г., 16:19:45 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Nika555
22 нояб. 2013 г., 17:13:22 (10 лет назад)

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] с клавиатуры и вычеслите количество элементов с чётными положительными значениями

как получить 131072 символа?
(анаграмма: "монитор" можно составить слова рот,мир и т.д., но нельзя составить слово "ротор",т.к. два раза встречается буква "р"). из слов в

столбике составьте слова,связанные с информатикой и компьютером.

1. овод,диск

2. детка,си

3. миф,нота,икра

4.ель,писк

5. сор,процесс

6. кол,кони

7. грамм,порог

8. бег,май,та

Если можно, прикрепите файл с выполненным заданием!!! Работа в Excel.

Составьте таблицу значений
функций:

Читайте также

1)найти сумму первых k последовательных нечетных чисел. написать программу в паскале. 2)вывести на экран натуральные нечетные числа от 5 до 55.тоже

паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль

1 вывести на экран все трехзначные числа кратные 50

2 найти количество четных чисел начиная с числа 20 до 60
3 найти сумму нечетных чисел от 100 до 150
паскаль

Вывести на экран все четные числа, начиная с числа N и заканчивая числом M

Подсказска:
i это текущие значения
N до M значит от начала до конца , начальное число N, концовое M
mod использоватсья надо, поомгите пожалуйста, отблагодарю



Вы находитесь на странице вопроса "паскаль. заполнить массив случайными числами от -20 до 20. вывести на экран. все отрицательные числа заменить на 5", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.