Дан массив из 5 цифр подсчитать сумму элементов используя procedure для чтения и function для решения a[-3;100;10;12;18]
10-11 класс
|
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, ведь вполне можно обойтись одной функцией.
Другие вопросы из категории
удовлетворяет следующему свойству: в любом кодовом слове содержится четное количество единиц (возможно, ни одной). Какую наименьшую длину может иметь кодовое слово?
При этом диапазон однозначного представления чисел равен произведению оснований (в привед примере р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
Читайте также
двузначных элементов массива, которые не оканчиваются на 3. №2. Дан массив из 100 элементов. Каждый элемент может принимать целочисленные значения от 1 до 500. Напишите программу, которая позволит найти и вывести минимальное значение среди элементов массива, которые делят максимальное значение элементов массива без остатка.
подсчитать среднее арифметическое положительных элементов массива, которые кратны первому элементу массива. №2. Дан массив из 40 элементов. Каждый элемент может принимать целочисленные значения от 0 до 200. Напишите программу, которая позволит найти наиболее часто встречающийся элемент массива
элементов.Найти колличество четных положительных элементов.
3)Дан массив из 6 элементов.Найти произвдение положительных из них.
среднее второго и предпоследнего элементов массива
дан целочисленный
массив из 10 элементов написать программу находящую сумму элементов
массива красных 3 ил 5
дан целочисленный массив из 30 ти элементов
написать программу которая позволяет найти среднее арифметическое
положительных элементов массива
А)сумму элементов массива
Б)количество отрицательных элеметов
В)вывести номера элементов массива кратных 3