Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Определить максимальный и минимальный элементы матрицы и поменять их местами Вариант № 17 Задание 2. Дана матрица целых чисел X. Определить максимальный и минимальный элементы матрицы и поменять их местами. Вывести исходную и полученную матрицы. Количество элементов задать самостоятельно https://www.cyberforum.ru/ pascalabc/ thread1215564.html	Pascal ABC Создать новый файл, содержащий все строки исходного файла наибольшей длины в обратном порядке Дан текстовый файл. Создать новый файл, содержащий все строки исходного файла наибольшей длины в обратном порядке
Pascal ABC Определить количество жильцов, имеющих возраст выше среднего https://www.cyberforum.ru/ pascalabc/ thread1215493.html 2. Создать файл, содержащий сведения о жильцах дома: номер квартиры, имя, возраст, род занятий (д/с, школа, ВУЗ, работа, пенсия). Определить количество жильцов, имеющих возраст выше среднего (вывести фамилии).	Pascal ABC Вычислить сумму, используя процедуру Вычислить, используя процедуру 4 + 8 + 12 + ... + 4 • N https://www.cyberforum.ru/ pascalabc/ thread1215342.html
Вычислить, используя функцию Pascal ABC решите 14 вариант пожалуйста (4 лаба паскаль)	Pascal ABC В заданном предложении удалить все предыдущие вхождения последней буквы. Новый текст вывести на печать В заданном предложении удалить все предыдущие вхождения последней буквы. Новый текст вывести на печать(лаба2,вариант14) https://www.cyberforum.ru/ pascalabc/ thread1215268.html
Pascal ABC Поменять местами наибольший элемент одномерного массива с наименьшим https://www.cyberforum.ru/ pascalabc/ thread1215265.html 14. Создать одномерный массив из 16 элементов. Поменять местами наибольший элемент массива с наименьшим. Вывести новый массив.(инф.лаб.2) Добавлено через 12 минут пожалуйста побыстрее , очень срочно нужно )	Pascal ABC Дан файл вещественных чисел. Найти среднее арифметическое его элементов Дан файл вещественных чисел. Найти среднее арифметическое его элементов.
Pascal ABC Вывести слова, начинающиеся с гласных букв Помогите пожайлуста не смог сделать!Дана строка. Напечатать в алфавитном порядке все слова из данной строки, начинающиеся на гласную букву. Начало типо так: Program qq; const G='aeijouy'; var s:string; begin writeln('vvedite stroky'); https://www.cyberforum.ru/ pascalabc/ thread1214810.html	Pascal ABC Как вывести количество итераций в методе Зейделя? https://www.cyberforum.ru/ pascalabc/ thread1214807.html Подскажите, как вывести количество итераций в методе Зейделя? Program Zeidel; var elems: array of real; x, BElements, sums: array of real; i, i2, a, b: integer; //x: искомые элементы матрицы //elems: элементы матрицы //BElements: последние элементы каждой строки матрицы
Определить, чему равняется произведение цифр числа: четному числу или нечетному (использовать функцию) Pascal ABC 4)2. Чему равняется произведение цифр числа четному числу или нечетному (ис-пользовать функцию)	Pascal ABC Вычислить сумму элементов последовательности Вычислить, используя процедуру 6 + 12 + 18 + ... + 6 • N. https://www.cyberforum.ru/ pascalabc/ thread1214786.html

erl27

908 / 756 / 833

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

Сообщений: 1,561

30.06.2014, 15:31

В одномерном вещественном масиве x(n) найти наибольшее значение и подсчитать сумму элементов - Pascal ABC - Ответ 6380886

30.06.2014, 15:31. Показов 553. Ответов 12

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

Ответ

Pascal

uses
  crt;
 
var
  S: real;
  i, n, iMax: integer;
  x: array[1..100] of real;
 
begin
  writeln('Введите n:');
  readln(n);
  iMax := 1;
  S := 0;
  for i := 1 to n do begin
    read(x[i]);
    S := S + x[i];
    if (i > 1) and (x[i] > x[iMax]) then iMax := i
  end;
  writeln('Сумма: ', S);
  writeln('Максимальный элемент: ', x[iMax])
end.

Вернуться к обсуждению:
В одномерном вещественном масиве x(n) найти наибольшее значение и подсчитать сумму элементов Pascal ABC

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

30.06.2014, 15:31

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

В одномерном вещественном массиве найти сумму элементов, расположенных после максимального
В одномерном массиве, состоящем из n вещественных элементов, вычислить: 1) количество...

В одномерном вещественном массиве вычислить: номер максимального по модулю элемента, сумму элементов
очень сложно) можете пожалуйста помочь с кодом? Вариант 12 В одномерном массиве, состоящем из п...

В одномерном массиве найти наибольшее отрицательное значение среди элементов с нечётными индексами
Помогите с задачей, благодарен заранее: Одномерному массиву вычислить его значение и индекс, у...

Найти суму положительных элементов в одномерном масиве
найти суму положительных элементов в одномерном масиве А. Перенести из масива А в масив В четные...

	30.06.2014, 15:31

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

30.06.2014, 15:31

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

В одномерном масиве найти самую длинную серию одинаковых элементов
ЗАДАЧА С++ ПОМОГИТЕ РЕШИТЬ ПЛИЗ ВОТ ЗАДАНИЕ: 1)ПОДГОТОВИТЬ ТЕКСТОВЫЙ ФАЙЛ С ВХОДНЫМИ ДАНЫМИ В...

В одномерном массиве найти сумму номеров элементов, значение которых по модулю меньше 5
Всем привет. Мне нужна ваша помощь в создание консольной и оконной программки по этому условию. Дан...

В вещественном массиве найти сумму элементов, меньших, чем среднее арифметическое его min и max элементов
Ребят, помогите пожалуйста, замучился уже =) In a given array of real numbers calculate the sum...

В одномерном массиве найти наибольшее отрицательное значение
полный новичок начал изучать массивы ) сумму четных написал без особого труда но вот когда дошло...

Массив: В масиве из 15 элементов найти сумму элементов от 4 до 9.
На практике работаем с ассемблером, но толком никто не объясняет ничего. Помогите, пожалуйста. ...

Подсчитать сумму элементов с чётными индексами в одномерном массиве из 10 элементов, вводимых с клавиатуры
Составьте программу на языке Паскаль, которая подсчитывает сумму элементов с чётными индексами в...

Наверх