сервис вопросов и ответовДан массив целых чисел. Найти количество тех элементов, значение которых положительны и не превосходят заданного натурального числа А.
5-9 класс|
|
(сделайте в паскале)
Arina1604
22 мая 2013 г., 9:55:41 (10 лет назад)
6ahah4ik2
22 мая 2013 г., 11:43:53 (10 лет назад)
uses crt;
const N=20;
var
i,A,x: integer;
arr: array [1..N] of integer;
begin
clrscr;
x:=0;
write ('A=');
readln (A);
writeln ('Array: ');f
or i:=1 to N do
begin
arr[i]:=random(41)-20;
write (arr[i],' ');
end;
for i:=1 to N do
begin
if (arr[i]>=0) and (arr[i]<=A) then
x:=x+1;
end;
writeln ();
writeln ('Answer: ',x);
readln ();
end.
Ответить
Другие вопросы из категории
У прилавка магазина выстроилась очередь из N покупателей. Время обслуживания i-го покупателя равно ti. Определить время Ci пребывания i-го покупателя в
очереди. Протестировать программу на следующих исходных данных: а) Номер покупателя – 5. Время обслуживания отдельных покупателей (в минутах): 1 1.5 2 1.5 2.5 3 1.5 1 б) Номер покупателя – 7. Время обслуживания отдельных покупателей (в минутах): 1 1.5 2 1.5 2.5 3 1.5 1
Помогают читателю очень быстро понять, о чем идет речь, и создать в его представлении определенные образы.
11 букв, третья "Л", десятая "И".
Читайте также
1.Дан массив целых чисел, найти среднее арифметическое всех элементов массива.
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.
Помогите, пожалуйста, решить задачу на языке программирования в Turbo Pascal: 1.Дан массив целых чисел, состоящий из 10 элементов.Заполнить его
с клавиатуры. Найти:
-Удвоенную сумму положительных элементов;
-вывести индексы тех элементов, значения которых больше значения предыдущего элемента(начиная со второго).
2.Определить,есть ли 2 пары соседних элементов с одинаковыми знаками.
1.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами до 50. Найти сумму всех четных элементов массива и их количество.
2.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50. Заменить все четные элементы на их квадраты, а нечетные удвоить.
1)дан массив. найти сумму положительных и нечетных и количество отрицательных четных элементов
2)Дан массив целых чисел.Найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах.
3)дан массив целых чисел.найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента.Примечание:при вводе необходимо учесть, что первый элемент не может быть отрицательным.
2. Определить, делится ли введенное число "а" на 3. Если делится то вывести на экран "Число делится на 3".Тип переменной определить самостоятельно. При
составлении условия учесть, что если число делится на 3, то то остаток от деления на 3 должен быть равен 0.
3. Дана программа на языке Паскаль.
var a,n,s: integer;
begin
s:=0;
n:=0;
repeat;
write('Введите число ');
readln(a);
s:=s+a;
n:=n+1;
until s>100;
writeln('Количество введенных чисел = ' ,n);
end.
Переписать программу используя цикл While.
4. Вывести на экран массив целых чисел, Состоящий из 15 элементов, значение которого из которых сгенерировано случайным образом из диапазона [20,60].
Вы находитесь на странице вопроса "Дан массив целых чисел. Найти количество тех элементов, значение которых положительны и не превосходят заданного натурального числа А.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.