Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 978 ответов!

Дан массив из 5 цифр подсчитать сумму элементов используя procedure для чтения и function для решения a[-3;100;10;12;18]

10-11 класс

Zefyr2003 31 янв. 2015 г., 2:11:38 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Totally
31 янв. 2015 г., 3:05:58 (9 лет назад)

type Arr = array [1..5] of integer; //Тип массива

const

  a: Arr = (-3, 100, 10, 12, 18);{Задаем типизированную константу - массив и сразу же присваиваем элементам значения}

procedure ReadArr(a: Arr);{Процедура для чтения массива}

  function Summa : integer; {Вложенная в процедуру функция для вычисления суммы элементов (входной в процедуру параметр виден и в функции)}

  var

    S, i: integer;

  begin //Начало функции

    S:= 0;

    for i:= 1 to 5 do s:= s + a[i]; //Вычисление суммы

    Summa:= s; //Присваиваем значение s функции

  end; //Конец функции

begin //Начало процедуры

  write(Summa); //Выводим значение функции

end; //Конец процедуры

begin //Начало программы

  ReadArr(a);

end. //Конец программы

Если только так. Я использовал процедуру, в которой входным параметром является заданный массив и в процедуре - вложенную функцию, вычисляющую сумму элементов. А вообще непонятно, зачем тут еще и procedure, ведь вполне можно обойтись одной функцией.

 

Ответить

Другие вопросы из категории

Для передачи помехоустойчивых сообщений в алфавите, который содержит 16 различных символов, используется равномерный двоичный код. Этот код

удовлетворяет следующему свойству: в любом кодовом слове содержится четное количество единиц (возможно, ни одной). Какую наименьшую длину может иметь кодовое слово?

В непозиционной системе счисления, названной системой остатков (СО), в качестве оснований выбираются взаимно простые числа, например, р1=3, р2=5, р3=7.

При этом диапазон однозначного представления чисел равен произведению оснований (в привед примере р1Хр2Хр3=105, т.е. однозначно представляются все числа от 0 до 104). Любое число в этом диапазоне записывается остатками от целочисленного числа на выбранные основания. Например, чило А=19 запишется в СО с основаниями 3, 5, 7 так: А=(1,4,5). Укажите какая из записей соотвествует числу 3, записанному в системе остатков с основаниями 3,5,7. (3,0,0),(0,3,3) (0,2,4) (3,3,3)

Световое табло состоит из лампочек. Каждая лампочка может находиться в одном из двух состояний (включено или выключено ). Какое наименьшее количество лампо

чек должно находиться на табло,чтобы с его помощью можно было передать 100 различных сигналов?

1)6 2)7 3)50 4)100

Читайте также

№1. Дан массив из 30-ти элементов. Каждый элемент может принимать целочисленные значения от 0 до 100. Напишите программу, которая позволит найти сумму

двузначных элементов массива, которые не оканчиваются на 3. №2. Дан массив из 100 элементов. Каждый элемент может принимать целочисленные значения от 1 до 500. Напишите программу, которая позволит найти и вывести минимальное значение среди элементов массива, которые делят максимальное значение элементов массива без остатка.

№1. Дан массив из 30-ти элементов. Каждый элемент может принимать целочисленные значения от -100 до 100. Напишите программу, которая позволит

подсчитать среднее арифметическое положительных элементов массива, которые кратны первому элементу массива. №2. Дан массив из 40 элементов. Каждый элемент может принимать целочисленные значения от 0 до 200. Напишите программу, которая позволит найти наиболее часто встречающийся элемент массива

1)дан одномерный массив из 5 элементов.найти сумму положительных элементов. 2)Дан одномерный массив из 7

элементов.Найти колличество четных положительных элементов.

3)Дан массив из 6 элементов.Найти произвдение положительных из них.

дан массив из семи элементов написать программу подсчитывающую

среднее второго и предпоследнего элементов массива
дан целочисленный
массив из 10 элементов написать программу находящую сумму элементов
массива красных 3 ил 5
дан целочисленный массив из 30 ти элементов
написать программу которая позволяет найти среднее арифметическое
положительных элементов массива

Написать программу в free pascal дан массив из 10элеметов найти

А)сумму элементов массива
Б)количество отрицательных элеметов
В)вывести номера элементов массива кратных 3



Вы находитесь на странице вопроса "Дан массив из 5 цифр подсчитать сумму элементов используя procedure для чтения и function для решения a[-3;100;10;12;18]", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.