Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal файл с элементами из букв https://www.cyberforum.ru/ pascal/ thread321717.html помогите пожалуйста составить программу на задачу: Имеется текстовый файл, в каждой строке которого первые два символа являются буквами. Получить: а) слово, образованное первыми буквами каждой строки; б) слово, образованное вторыми буквами каждой строки; в) последовательность символов, образованную s-ми символами каждой строки.	файл, элементами из слов Pascal помогите составить программу пожалуйста, на эту задачу: Имеется файл, элементами которого являются отдельные слова. а) Найти количество слов, начинающихся на букву "м"; б)Определить, есть ли в файле слова, начинающиеся на букву "к". В случае положи-тельного ответа напечатать порядковый номер, первого из них; в) Получить предложение, составленное из слов, порядковый номер которых четный; г)...
Pascal замена элементов в диагонали массива https://www.cyberforum.ru/ pascal/ thread321659.html помогите написать программу пожалуйста... Заменить значения всех элементов главной диагонали массива на нулевые	Pascal работа с символами по тексту Дан текст. Верно ли, что в нем есть пять идущих подряд одинаковых символов... я в этом новичок помогите написать программу пожалуйста https://www.cyberforum.ru/ pascal/ thread321654.html
Pascal найти номера всех элементов массива Дан массив. Найти номера всех элементов: а) с минимальным значением; 6) с максимальным значением. дали эту задачу срочно решить, а я в массивах вообще не разбираюсь.... помогите пожалуйста	Pascal Чтение абзаца из текстового файла https://www.cyberforum.ru/ pascal/ thread321643.html Здравствуйте! Можно ли сделать так, чтобы программа читала из текстового файла не строку, а абзац! Если да, то как?
Pascal Pascal, Массивы Ребят, помогите пожалуйста, я не могу понять условие: Дан массив из 20 элементов. Найти пять “соседних” элементов, сумма значений которых максимальна. как это делается?) https://www.cyberforum.ru/ pascal/ thread321572.html	Pascal Дано натуральное число п. Написать программу для определения первой цифры числа п. Мальчики привет ,помогите пожалуйста. Я очень надеюсь на вас. Мне эту задачу надо завтра уже показать. Я не знаю что делать. Вот собственно задача : Дано натуральное число п. Написать программу для определения первой цифры числа п.
Pascal Создать двумерный массив все четные элементы переписать в одномерный массив создать двумерный массив все четные элементы переписать в одномерный массив https://www.cyberforum.ru/ pascal/ thread321506.html	Pascal Двунаправленный список, выручайте! https://www.cyberforum.ru/ pascal/ thread321485.html Дана последовательность из не менее чем двух различных натуральных чисел, за которой следует 0. Напечатать в обратном порядке все числа между наибольшим и наименьшими числами этой последовательности.
Pascal Однонаправленный список, выручайте! Описать процедуру, которая: 1) проверяет есть ли в списке L хотя бы 2 одинаковых элемента 2) добавляет в конец списка L1 все элементы списка L2	Pascal Рекурсия: вычисление выражения https://www.cyberforum.ru/ pascal/ thread321415.html Написать программу с рекурсивной функцией, вычисляющей \huge S=\sqrt{1+\sqrt{2+\sqrt{3+...+\sqrt{n}}}}

lamed

298 / 298 / 150

Регистрация: 07.05.2011

Сообщений: 592

17.06.2011, 21:50

Найти сумму отрицательных элементов и колличество положительных элементов. - Pascal - Ответ 1770228

17.06.2011, 21:50. Показов 994. Ответов 3

Метки (Все метки)

Ответ

Pascal

{ Массив одномерный,n=15. Элементы вводить с клавиатуры.
Найти сумму отрицательных элементов и количество положительных элементов. }
const
  n=15;
var
  i, sneg, kpos: integer;
  a: array[1..n] of integer;
begin
  for i:= 1 to n do
    readln(a[i]);
  
  sneg:= 0;
  kpos:=0;
  
  for i:= 1 to n do
    if a[i]<0 then
      sneg:= sneg +a[i]
    else if a[i]>0 then
      inc(kpos);
  writeln(sneg, ' ', kpos);
  readln;
end.

Вернуться к обсуждению:
Найти сумму отрицательных элементов и колличество положительных элементов. Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

17.06.2011, 21:50

Готовые ответы и решения:

Найти номера отрицательных элементов и среднеарифметическую сумму положительных элементов
сформировать одномерный массив целых чисел случайным образ n элементов,взятых из промежутка ....

Массив: Найти сумму отрицательных и сумму положительных элементов и сравнить их по модулю.
1) Дан одномерный массив, который содержит не более 50 целых чисел. Найти сумму отрицательных и...

Дан массив А(5). найдите сумму и колличество положительных элементов
Дан массив А(5). найдите сумму и колличество положительных элементов. Как это решить??? Заранее...

Найти сумму положительных и отрицательных элементов массива
помогите решить: Найти сумму положительных и отрицательных элементов массива X(11) Добавлено...

	17.06.2011, 21:50

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

17.06.2011, 21:50

Помогаю со студенческими работами здесь

Массив. Определить сумму квадратных корней из положительных элементов и сумму квадратов отрицательных элементов
Дан массив B(N). Определить сумму квадратных корней из его положительных элементов и сумму...

Найти сумму отрицательных и количество положительных элементов матрицы
1)Найти сумму отрицательных и количество положительных элементов для матриц В(5,3) и С(4,3) 2)Дана...

Найти сумму положительных и произведение отрицательных элементов матрицы
ЦЕЛЬ РАБОТЫ. Задав двумерный массив вещественных данных (матрицу А), реализовать его обработку,...

Найти сумму положительных и произведение отрицательных элементов массива
Помогите пожалуйста решить задачки на массив в паскале : 1-В массиве A(N) содержатся положительные...

Наверх