|
|
Опции темы | Опции просмотра |
07.12.2021, 18:21 | #1 (permalink) |
Новичок
Регистрация: 02.12.2021
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Задан одномерный массив из целых чисел размерностью 10. Определить сумму отрицательны
размерностью 10. Определить сумму отрицательных элементов Помогите решить пожалуйста |
07.12.2021, 18:21 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Эти ссылки должны вам существенно помочь Есть массив целых чисел, содержащий n элементов Дан квадратный массив целых положительных чисел 10 х 10 Pascal ABC: File23. Дан файл вещественных чисел, создать файл целых чисел Паскаль. Создать массив целых чисел и записать его в файл Последовательность целых чисел. |
07.12.2021, 18:53 | #2 (permalink) |
Member
Регистрация: 17.01.2012
Адрес: Краснодар
Сообщений: 2,713
Записей в дневнике: 5
Сказал(а) спасибо: 30
Поблагодарили 254 раз(а) в 36 сообщениях
Репутация: 59322
|
Если навскидку, то примерно так:
Блин... Упустил главное... Пошёл переписывать пост... ))
__________________
Одна голова - хорошо, а три - сквозной канал!© |
07.12.2021, 19:06 | #3 (permalink) |
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, 16:14 | #4 (permalink) |
Новичок
Регистрация: 27.07.2022
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Всё правильно, но почти. В паскале нужно задать начальное значение переменной, прежде чем что-либо с ней делать. Т.е., перед циклом for мы добавляем "sum := 0", иначе "sum := sum + a" не будет работать
Так, на будущее. |
27.07.2022, 22:09 | #5 (permalink) |
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.
__________________
Убить всех человеков! |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Метки |
с для начающих |
|
|