Массив

@[H] · Регистрация: 17.02.2011

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

Найти сумму и число тех элементов заданного массива x1,x2..xn, каждый из которых, во первых больше элемента с тем же номером из другого заданного массива y1,y2..yn, а во вторых, положителен

@Holy_Metal · 01.03.2011, 17:16

Pascal

Uses
    Crt;
Const n=10;
Var
   x,y:array[1..n] of integer;
   sum,kol,i:integer;
Begin
for i:=1 to n do
begin
     x[i]:=random(100)-50;
     y[i]:=random(100)-50;
if (x[i]>0) and (x[i]>y[i]) then begin
                                      sum:=sum+x[i];
                                      inc(kol);
                                 end;
end;
writeln(sum:3,kol:3);
end.

@[H] 0 / 0 / 0 Регистрация: 17.02.2011 Сообщений: 10
		1
	Массив 28.02.2011, 20:13. Показов 1030. Ответов 1 Метки нет (Все метки) Найти сумму и число тех элементов заданного массива x1,x2..xn, каждый из которых, во первых больше элемента с тем же номером из другого заданного массива y1,y2..yn, а во вторых, положителен 0

	01.03.2011, 17:16

Массив

Решение