Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Составить программу через функцию - Вводим число. Определить, сколько делителей имеет заданное число. https://www.cyberforum.ru/ turbo-pascal/ thread447697.html Составить программу через функцию(и) - Вводим число. Определить, сколько делителей имеет заданное число. Заранее спасибо	Turbo Pascal Построить вектор состоящий из положительных элементов таблицы По заданной квадратной матрице М (5*5)построить вектор состоящий из положительных элементов таблицы
Turbo Pascal В произвольном предложение определить количество согласных букв https://www.cyberforum.ru/ turbo-pascal/ thread447691.html Hi people!Помогите с написанием программы.Программа звучит так:"В произвольном предложение определить количество согласных букв"(с помощью строковых величин,а также можно использовать процедуры и функции для обработки строковых величин).Заранее благодарю! Начало программы следующее(можно свой вариант,но если можно,то лучше попроще=)): program car; uses crt; var a:string ; b:string ;...	Turbo Pascal Определите количесто элементов массива,являющихся отрицательными числами https://www.cyberforum.ru/ turbo-pascal/ thread447679.html дан числовой массив А, состоящий из n целых чисел. Определите количесто элементов массива,являющихся отрицательными числами. Если оно кратно 3, то разделите на это количество сумму всех элементов массива. пожалуйста помогите.
Turbo Pascal Вывести на экран те элементы, сумма цифр которых - четное число Дан одномерный массив натуральных чисел. Вывести на экран те элементы, сумма цифр которых - четное число	Turbo Pascal В матрице каждый элемент разделить на диагональный, стоящий в том же столбце https://www.cyberforum.ru/ turbo-pascal/ thread447663.html В матрице Z(m,m) каждый элемент разделить на диагональный, стоящий в том же столбце. Помогите пожалуйста!!!!
Turbo Pascal Функции процедуры,решение задач https://www.cyberforum.ru/ turbo-pascal/ thread447659.html Вот 2 задачи: В целочисленном массиве X(40;35) определить номер строки,содержащей максимальное число четных элементов.Подсчет числа четных элементов оформить в виде функции. и вторая Найти длину вектора x={x1,x2,x3] компонентами которого являются суммы элементов квадратных матриц соответственно A(4,4) B(3,3), C(2,2).определение суммы элементов квадратной матрицы оформить в виде процедуры. ...	Turbo Pascal графики функций нарисовать графики 3(0.5/(x+1)+1), 2,5х-9,5, 5/х на одном графике
Turbo Pascal Как прочитать из файла данные различных типов? Имеется файл такого вида: 3 5 #.#.# ##### .###. Надо написать программу, которая прочтёт эти данные из файла и запишет их в нужные переменные. Вот, что я написал: https://www.cyberforum.ru/ turbo-pascal/ thread447592.html	Turbo Pascal Построить фигуру https://www.cyberforum.ru/ turbo-pascal/ thread447577.html Реализовать программу, строящую двумерное изображение заданной фигуры. Необходимо выполнить 2D преобразования и отобразить новое положение фигуры!
процедура.где ошибка? Turbo Pascal var n: integer; procedure Del(n: integer); var ch: integer; begin ch:=n mod 10; while n > ch do begin	Turbo Pascal Напишите рекурсивную процедуру для ввода с клавиатуры последовательности чи-сел (конец ввода – 0) и вывода её на экран в обратном порядке. Помогите решить. Только при помощи рекурсии. Задание: Напишите рекурсивную процедуру для ввода с клавиатуры последовательности чи-сел (конец ввода – 0) и вывода её на экран в обратном порядке. https://www.cyberforum.ru/ turbo-pascal/ thread447538.html

BumerangSP

4311 / 1422 / 463

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

Сообщений: 2,939

Записей в блоге: 3

18.02.2012, 11:44

Найти сумму цифр всех элементов массива - Turbo Pascal - Ответ 2501654

18.02.2012, 11:44. Показов 3719. Ответов 3

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

Сообщение было отмечено Памирыч как решение

Решение

Здесь обычная нерекурсивная процедура:

Pascal

uses crt;
type mas =array[0..100] of integer;
var s,i,n:integer;
    a: mas;
procedure sum(a: mas; var s: integer);
var x,i: integer;
begin
 for i:=1 to n do
  begin
   x:=a[i];
   while x<>0 do
    begin
     s:=s+(x mod 10);
     x:=x div 10;
    end;
  end;
 writeln('Сумма цифр массива: ',s);
end;
begin
 write('введите размерность:');
 readln(n);
 for i:=1 to n do
  begin
   write('введите ',i,' число: ');
   readln(a[i]);
  end;
  sum(a,s);
  readln;
end.

Народ, если кто подскажет, каким боком тут сделать рекурсию, буду признателен.

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

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

18.02.2012, 11:44

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

Найти сумму всех элементов массива целых чисел, которые меньше среднего арифметического элементов массива.
Найти сумму всех элементов массива целых чисел, которые меньше среднего арифметического элементов...

Найти сумму всех элементов массива целых чисел, которые меньше среднего арифметического элементов массива
Помогите пожалуйста найти в чем ошибка? Пишет что арифметическое переполнение! Задание: Найти сумму...

Найти сумму всех положительных и произведение всех отрицательных элементов двумерного массива
задачка №1. найти сумму всех положительных и произведение всех отрицательных элементов двумерного...

Найти сумму и среднее арифметическое, общую сумму всех элементов массива
Помогите решить , очень надо Даны 2 одномерные масив состоящие их 9 элементов на интервале от -10...

	18.02.2012, 11:44

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

18.02.2012, 11:44

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

Найти минимальный и максимальный элемент массива.Найти сумму всех элементов массива
Проверьте пожалуйста программу. Program lb4; var i,j,k,l,m,n,v:integer; mass:array of real;...

Найти сумму всех элементов массива, кроме элементов с номерами от K до L включительно
1. Дан массив размера N и целые числа K и L (1 < K ≤ L ≤ N). Найти сумму всех элементов массива,...

Найти сумму всех элементов массива, кроме элементов с номерами от K до L включительно
Дан массив размера N и целые числа K и L (1<K<=L<=N). Найти сумму всех элементов массива, кроме...

Найти сумму всех элементов массива, кроме элементов с номерами K и L
Дан массив размера N и целые числа K и L (1<K<=L<=N). Найти сумму всех элементов массива, кроме...

Наверх