Домашние задания: Информатика

Дан некоторый числовой массив. Надо найти сумму положительных элементов этого числового массива. На Pascal ABC.

{1; 7; -5; 3; -10; 8; -100}
Гульнара Сарсембаева
Гульнара Сарсембаева
31 
 Program P1; 

uses crt; 

const n=5; 

type mas=array [1..n] of real; 

var i: integer; 

    m: mas; 

    s: real; 

begin 

clrscr; 

s:=0; 

writeln ('Введите с клавиатуры массив (только числа, по 1 числу), после ввода каждого элемента массива (числа) нажимайте клавишу Enter. При вводе дробных значений целую часть от дробной отделяйте точкой, а не запятой.'); 

for i:=1 to n do begin 

    write ('Введите ', i, '-й элемент массива: '); 

    readln (m[i]); 

    end; 

for i:=1 to n do if m[i]>0 then s:=s+m[i]; 

if s=0 then writeln ('В массиве нет положительных элементов.') else writeln ('Сумма положительных элементов массива составляет: ', s :0:2); 

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; 

end.
ОБ
Ольга Березовская
43 559
Лучший ответ
А вот и на PascalABC ( как просят! , но с ДСЧ :)))


const Max = 1000;
var N, Sum, Ran : integer;
A : array [1..Max] of integer;
begin
Sum := 0;
Write (' Введите количество элементов массива N = '); ReadLn (N);
Write (' Числовой массив: ');
for var i := 1 to N do
begin
Ran := - 20 + Random (40); A[i] := Ran;
Write ( A[i]:5);
if Ran > 0 then Sum := Sum + Ran;
end; WriteLn;
if Sum > 0 then WriteLn (' Сумма положительных элементов = ', Sum)
else WriteLn (' Положительных элементов нет...') ;
end.
Талгат Утемисов
Талгат Утемисов
73 229
program sum_positive;

var
arr: array [1..7] of integer = (1, 7, -5, 3, -10, 8, -100);
i, sum: integer;

begin
sum := 0;
for i := 1 to 7 do
begin
if arr[i] > 0 then
sum := sum + arr[i];
end;
writeln('Сумма положительных элементов массива: ', sum);
readln;
end.
Яна Иващенко
Яна Иващенко
415
Гульнара Сарсембаева Спасибо большое!

Похожие вопросы