Язык c (си)
написать программу, которая вычисляет сумму всех положительных элементов массива.
244
436
Ответы на вопрос:
var
x, y: integer;
n: integer;
sum: integer;
mindif: integer;
f: text;
begin
assign(f,'C:\27-A.txt');
reset(f);
readln(f, n);
sum := 0;
mindif := 20001;
while not eof(f) do begin
readln(f, x, y);
if x > y then
sum := sum + x
else
sum := sum + y;
if (abs(x - y) < mindif) and (abs(x-y) mod 3 <> 0) then mindif := abs(x-y);
end;
if sum mod 3 <> 0 then
writeln(sum)
else
writeln(sum - mindif);
end.
Объяснение:
Популярно: Информатика
-
Юліан1125.02.2021 17:59
-
Kurakik18.09.2020 10:13
-
alamez6918.04.2020 22:41
-
Шаров200524.04.2020 14:49
-
prudniksveta15.03.2022 14:45
-
stas65114.04.2022 07:33
-
nataliolejic24.10.2020 03:58
-
julija7402.02.2022 05:28
-
alikhan1227.12.2022 00:55
-
КэтринПирс2329.05.2020 22:31