Нужно найти сумму и кол-во эл. массива буду благодарен

@lesus · Регистрация: 24.10.2010

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

Найти сумму и кол-во елементов массива АН,содержащего N эллементов,
удовлетворяющих условию 0<AHi<B.предусмотреть защиту от ввода неккоретного значения
N.Максимальное число элементов массива принять равным 50

Очень прошу

Добавлено через 23 минуты
В голову ничего не идет

@Puporev · 26.10.2010, 13:52

Pascal

uses crt;
const nmax=50;
var ah:array[1..nmax] of integer;
    n,i,j,k:byte;
    b,s:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Массив:');
for i:=1 to n do
 begin
  ah[i]:=random(50)-10;
  write(ah[i]:4);
 end;
writeln;
writeln;
repeat
write('Введите натуральное число для поиска чисел в интервале от 0 до B=') ;
readln(b);
until b>0;
k:=0;
s:=0;
for i:=1 to n do
if(ah[i]>0)and(ah[i]<b) then
 begin
  k:=k+1;
  s:=s+ah[i];
 end;
write('Количество чисел больше 0 и меньше ',b,'=',k,' их сумма=',s);
readln
end.

Не по теме:

В голову ничего не идет

Так в голову сама только дурь лезет, все остальное закачивать нужно...

@lesus · 26.10.2010, 13:59 **[ТС]**

А в object pascal как подредактировать?

Добавлено через 2 минуты
Всё разобрался величайшее вам спасибо!!!

@lesus 55 / 54 / 2 Регистрация: 24.10.2010 Сообщений: 199
		1
	Нужно найти сумму и кол-во эл. массива буду благодарен 26.10.2010, 13:28. Показов 1267. Ответов 2 Метки нет (Все метки) Найти сумму и кол-во елементов массива АН,содержащего N эллементов, удовлетворяющих условию 0<AHi<B.предусмотреть защиту от ввода неккоретного значения N.Максимальное число элементов массива принять равным 50 Очень прошу Добавлено через 23 минуты В голову ничего не идет 0

@lesus 55 / 54 / 2 Регистрация: 24.10.2010 Сообщений: 199
	26.10.2010, 13:59 [ТС]	3
	А в object pascal как подредактировать? Добавлено через 2 минуты Всё разобрался величайшее вам спасибо!!! 0

Опции темы

Нужно найти сумму и кол-во эл. массива буду благодарен

Решение