двумерные массивы

@Bespredel · Регистрация: 01.12.2010

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

помогите в решении:
1) Задан массив целых случайных чисел, принадлежащих промежутку
[-50, 50]. Найти сумму тех элементов массива, которые больше a, но меньше b, а также вычислить количество этих элементов.
2) В ЭВМ вводятся по очереди координаты n точек (n>10). Определить, сколько из них попадет в круг радиуса r с центром в точке (а,b).

@ChameleoN · 01.12.2010, 17:58

1.

Pascal

uses crt;
const
n = 5;
var
i,a,b,s : integer;
j : array[1..n] of integer;
begin
randomize;
for i := 1 to n do
j[i] :=random(100)-50;
s :=0;
a :=-50;
b :=50;
for i := 1 to n do
if ((j[i]>a) and (j[i]<b)) then
s := s+j[i];
writeln(s);
readln;
end.

@Шутка · 01.12.2010, 17:58

Pascal

const
min=-50;
max=50;
var
kol,sum,x,y,n,i:integer;
a:array[min..max] of integer;
begin
readln(n);
readln(x,y);
 for i:=1 to n do begin
  readln(a[i]);
   if (a[i]>x) and (a[i]<y) then begin kol:=kol+1; sum:=sum+a[i]; end;
 end;
writeln(kol);
writeln(sum);
end.

@ChameleoN · 01.12.2010, 18:00

Шутка, ты вторую зделай, первая за мною)

@Bespredel · 01.12.2010, 18:02 **[ТС]**

ребят спасибо за помощь!!!

@ChameleoN · 01.12.2010, 18:03

для спасибо есть кнопка)...

@Bespredel 0 / 0 / 0 Регистрация: 01.12.2010 Сообщений: 7
		1
	двумерные массивы 01.12.2010, 17:48. Показов 501. Ответов 5 Метки нет (Все метки) помогите в решении: 1) Задан массив целых случайных чисел, принадлежащих промежутку [-50, 50]. Найти сумму тех элементов массива, которые больше a, но меньше b, а также вычислить количество этих элементов. 2) В ЭВМ вводятся по очереди координаты n точек (n>10). Определить, сколько из них попадет в круг радиуса r с центром в точке (а,b). 0

@ChameleoN ТруЪ Одмин Всiя Руси 71 / 71 / 14 Регистрация: 20.11.2010 Сообщений: 284
	01.12.2010, 18:00	4
	Шутка, ты вторую зделай, первая за мною) 0

@Bespredel 0 / 0 / 0 Регистрация: 01.12.2010 Сообщений: 7
	01.12.2010, 18:02 [ТС]	5
	ребят спасибо за помощь!!! 0

@ChameleoN ТруЪ Одмин Всiя Руси 71 / 71 / 14 Регистрация: 20.11.2010 Сообщений: 284
	01.12.2010, 18:03	6
	для спасибо есть кнопка)... 1

Опции темы