Найти число тех элементов массива, значения которых положительны и не превосходят заданного числа А

@CJ GERZ · Регистрация: 15.01.2011

Author24 — интернет-сервис помощи студентам

. Дан массив целых чисел, состоящий из 30 элементов, заполненный случайным образом числами из промежутка от –50 до 50. Найти число тех элементов, значения которых положительны и не превосходят заданного числа А

@Dekio · 16.01.2011, 10:44

Pascal

program Dekio;
const
n=30;
var
arr :array[1..n] of integer;
i,a :integer;
begin
writeln('Ââåäèòå À');
readln(a);
writeln('Èñõîäíûé ìàññèâ');
for i:=1 to n do
begin
arr[i]:=random(101)-50;
write(arr[i],' ');
end;
writeln;
writeln('Èíäåêñû');
for i:=1 to n do
if (i>0) and (i>a) then
write(i,' ');
end.

@CJ GERZ 0 / 0 / 0 Регистрация: 15.01.2011 Сообщений: 24
		1
	Найти число тех элементов массива, значения которых положительны и не превосходят заданного числа А 16.01.2011, 10:17. Показов 2547. Ответов 1 Метки нет (Все метки) . Дан массив целых чисел, состоящий из 30 элементов, заполненный случайным образом числами из промежутка от –50 до 50. Найти число тех элементов, значения которых положительны и не превосходят заданного числа А 0

	16.01.2011, 10:44

Найти число тех элементов массива, значения которых положительны и не превосходят заданного числа А

Решение