Предмет: Информатика,
автор: kristiya199
Написать решение на языке Pascal/ Определить частное от деления суммы положительных элементов массива на модуль суммы отрицательных элементов.
Массивы только начали проходить, написать как можно проще.
Ответы
Автор ответа:
3
const
n = 15;
var
a:array[1..n] of integer;
i,sp,sn: integer;
begin
Randomize;
Writeln('Элементы массива');
sp:=0; sn:=0;
for i := 1 to n do
begin
a[i] := Random(51)-25;
Write(a[i]:4);
if a[i]<0 then sn:=sn+a[i]
else sp:=sp+a[i]
end;
Writeln;
Writeln('Частное: ',sp/abs(sn))
end.
Тестовое решение:
Элементы массива
2 -25 0 5 24 4 3 1 12 13 10 1 6 13 -17
Частное: 2.23809523809524
Вариант со вводом данных с клавиатуры:
const
n = 15;
var
a:array[1..n] of integer;
i,sp,sn: integer;
begin
Writeln('Вводите через пробел элементы массива');
sp:=0; sn:=0;
for i := 1 to n do
begin
Read(a[i]);
if a[i]<0 then sn:=sn+a[i]
else sp:=sp+a[i]
end;
Writeln('Частное: ',sp/abs(sn))
end.
n = 15;
var
a:array[1..n] of integer;
i,sp,sn: integer;
begin
Randomize;
Writeln('Элементы массива');
sp:=0; sn:=0;
for i := 1 to n do
begin
a[i] := Random(51)-25;
Write(a[i]:4);
if a[i]<0 then sn:=sn+a[i]
else sp:=sp+a[i]
end;
Writeln;
Writeln('Частное: ',sp/abs(sn))
end.
Тестовое решение:
Элементы массива
2 -25 0 5 24 4 3 1 12 13 10 1 6 13 -17
Частное: 2.23809523809524
Вариант со вводом данных с клавиатуры:
const
n = 15;
var
a:array[1..n] of integer;
i,sp,sn: integer;
begin
Writeln('Вводите через пробел элементы массива');
sp:=0; sn:=0;
for i := 1 to n do
begin
Read(a[i]);
if a[i]<0 then sn:=sn+a[i]
else sp:=sp+a[i]
end;
Writeln('Частное: ',sp/abs(sn))
end.
Похожие вопросы
Предмет: Русский язык,
автор: 210407Ruslan
Предмет: Английский язык,
автор: Nasty128539
Предмет: Русский язык,
автор: Vika2626
Предмет: Математика,
автор: Аноним
Предмет: Физика,
автор: tivitu
Write(a[i]:4); что это значит?