заполнить массив случайными числами в интервале [2;-2] и подсчитать количество положительных элементов
10-11 класс
|
Sasha123qwe
24 марта 2017 г., 10:07:35 (7 лет назад)
Никита0371
24 марта 2017 г., 11:52:43 (7 лет назад)
Паскаль
____________
uses crt;
var
min,k, i , n : integer;
m: array [1..100] of integer;
begin
randomize;
n:= 5;
for i:= 1 to n do
m[i]:= random (5)-2;
for i:= 1 to n do
write (m[i],' ');
for i:= 1 to n do
if m[i]>0 then k:= k+1;
writeln ;
writeln (k);
readkey;
end.
Ответить
Другие вопросы из категории
решить задачу "напишите эффективную программу, которая по двум данным натуральным числам а и б не превосходящим 30 тысяч подсчитывает количество чётных
натуральных чисел на отрезке а и б , включая концы отрезка
Читайте также
Заполните массив случайными числами в интервале [0,5]. Определить,есть ли в нем элементы с одинаковыми значениями,стоящие рядом.
Пример:
Массив:
1 2 3 3 2 1
Есть: 3
Пример:
1 2 3 4 2 1
Нет.
Вы находитесь на странице вопроса "заполнить массив случайными числами в интервале [2;-2] и подсчитать количество положительных элементов", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.