Momavsash
6 год назад
Используя файловый ввод вывод найдите сумму отрицательных элементов из 15 чисел.Пожалуйста посчитайте с информатикой!Даю 99 поинтов!
ОТВЕТЫ
Анна
Oct 24, 2020
var i,k,s: integer;
f: text;
begin
assign(f,'input.txt');
reset(f);
s:=0;
for i:=1 to 15 do
begin
read(f,k);
write(k,' ');
if k<0 then s:=s+k;
end;
close(f);
writeln;
writeln('сумма отрицательных: ',s);
end.
-11 57 28 -16 37 92 13 -6 14 39 -19 -59 61 78 27
сумма отрицательных: -111
Файл input.txt во вложении.
f: text;
begin
assign(f,'input.txt');
reset(f);
s:=0;
for i:=1 to 15 do
begin
read(f,k);
write(k,' ');
if k<0 then s:=s+k;
end;
close(f);
writeln;
writeln('сумма отрицательных: ',s);
end.
-11 57 28 -16 37 92 13 -6 14 39 -19 -59 61 78 27
сумма отрицательных: -111
Файл input.txt во вложении.
- Спасибо!Ты меня просто спас!
586
Смежные вопросы:
