Определите частное от деления суммы положительных элементов массива на модуль суммы отрицательных элементов

22.02.2011, 17:59. **Показов** 6441. **Ответов** 1

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

1.определите частное от деления суммы положительных элементов массива на модуль суммы отрицательных элементов.
2.в масиве хранятся сведения о количестве осадков выпавших за каждый день июня. определите в какой период выпало больше осадков: в первой половине июня или во второй.

@sano32 · 22.02.2011, 20:20

1.

Pascal

uses crt;
var a:array[1..100]of integer;
    i,sp,so:integer;
    ch:real;
begin
clrscr;
randomize;
for i:=1 to 15 do
    begin
         a[i]:=random(10)-5;
         write(a[i],' ');
         if a[i]>0 then sp:=sp+a[i];
         if a[i]<0 then so:=so+a[i];
    end;writeln;
ch:=sp/abs(so);
write(ch:3:4);
readln;
end.

Добавлено через 7 минут
2.

Pascal

uses crt;
var a:array[1..30]of integer;
    i,s1,s2:integer;
begin
clrscr;
randomize;
for i:=1 to 30 do
    begin
         a[i]:=random(15);
         write(a[i],' ');
    end;writeln;
for i:=1 to 15 do s1:=s1+a[i];
for i:=16 to 30 do s2:=s2+a[i];
if s1>s2 then writeln('v pervoi polovine vipalo bolshe osadkov')
else if s2>s1 then writeln('vo vtoroi polovine vipalo bolshe osadkov')
else writeln('osadkov vipalo odinakovo');
readln;
end.

Troll17
		1
	Определите частное от деления суммы положительных элементов массива на модуль суммы отрицательных элементов 22.02.2011, 17:59. Показов 6441. Ответов 1 Метки нет (Все метки) 1.определите частное от деления суммы положительных элементов массива на модуль суммы отрицательных элементов. 2.в масиве хранятся сведения о количестве осадков выпавших за каждый день июня. определите в какой период выпало больше осадков: в первой половине июня или во второй.

	22.02.2011, 20:20

Определите частное от деления суммы положительных элементов массива на модуль суммы отрицательных элементов

Решение