Задан одномерный массив из целых чисел размерностью 10. Определить сумму отрицательны

donrivol · 07.12.2021, 18:21

Задан одномерный массив из целых чисел
размерностью 10. Определить сумму отрицательных элементов
Помогите решить пожалуйста

vasilych · 07.12.2021, 18:53

Если навскидку, то примерно так:

Блин... Упустил главное... Пошёл переписывать пост... ))

vasilych · 07.12.2021, 19:06

Во, вроде так:
var i, sum, n: integer;
a: array [1..10] of integer;
begin
for i:=1 to 10 do
begin
read (n);
a[i]:=n;
if a<0 then
sum:=sum+a;
end;
write (sum);
end.

Пусть меня поправят профессионалы.

Тимур Столицын · 27.07.2022, 16:14

Всё правильно, но почти. В паскале нужно задать начальное значение переменной, прежде чем что-либо с ней делать. Т.е., перед циклом for мы добавляем "sum := 0", иначе "sum := sum + a" не будет работать

Так, на будущее.

AlexZir · 27.07.2022, 22:09

vasilych, в Pascal при обращении к элементам массива индексы нужно указывать.

Код:

const n=10;
var a: array[1..n] of integer;
     s,i: integer;
begin
    s:=0;
    for i:=1 to n do begin
       readln(a[i]);
       if a[i]<0 then inc(s,a[i]);
    end;
    writeln('Summa negativ elements ',s);
end.

А вообще надо было начать с вопроса про язык программирования, может, нужно было на C++ или Python написать.

07.12.2021, 18:21	#1 (permalink)
donrivol Новичок Регистрация: 02.12.2021 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Задан одномерный массив из целых чисел размерностью 10. Определить сумму отрицательны Задан одномерный массив из целых чисел размерностью 10. Определить сумму отрицательных элементов Помогите решить пожалуйста

07.12.2021, 18:53	#2 (permalink)
vasilych Member Регистрация: 17.01.2012 Адрес: Краснодар Сообщений: 2,713 Записей в дневнике: 5 Сказал(а) спасибо: 30 Поблагодарили 254 раз(а) в 36 сообщениях Репутация: 59322	Если навскидку, то примерно так: Блин... Упустил главное... Пошёл переписывать пост... )) __________________ Одна голова - хорошо, а три - сквозной канал!©

07.12.2021, 19:06	#3 (permalink)
vasilych Member Регистрация: 17.01.2012 Адрес: Краснодар Сообщений: 2,713 Записей в дневнике: 5 Сказал(а) спасибо: 30 Поблагодарили 254 раз(а) в 36 сообщениях Репутация: 59322	Во, вроде так: var i, sum, n: integer; a: array [1..10] of integer; begin for i:=1 to 10 do begin read (n); a[i]:=n; if a<0 then sum:=sum+a; end; write (sum); end. Пусть меня поправят профессионалы. __________________ Одна голова - хорошо, а три - сквозной канал!©

27.07.2022, 22:09	#5 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	vasilych, в Pascal при обращении к элементам массива индексы нужно указывать. Код: const n=10; var a: array[1..n] of integer; s,i: integer; begin s:=0; for i:=1 to n do begin readln(a[i]); if a[i]<0 then inc(s,a[i]); end; writeln('Summa negativ elements ',s); end. А вообще надо было начать с вопроса про язык программирования, может, нужно было на C++ или Python написать. __________________ Убить всех человеков!

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

27.07.2022, 16:14	#4 (permalink)
Тимур Столицын Новичок Регистрация: 27.07.2022 Сообщений: 11 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Всё правильно, но почти. В паскале нужно задать начальное значение переменной, прежде чем что-либо с ней делать. Т.е., перед циклом for мы добавляем "sum := 0", иначе "sum := sum + a" не будет работать Так, на будущее.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070