сервис вопросов и ответовПомогите срочно надо.Вывести массив М девяти элементов. Вычислить разность между минимальными и максимальными элементами. Использовать подпрограммы.В
10-11 класс|
|
паскале ABC
Shabanova20001
15 авг. 2014 г., 23:05:46 (9 лет назад)
AngelinaBezryadina
16 авг. 2014 г., 0:02:59 (9 лет назад)
const
n = 9;
function Max(a:array[1..n] of integer):integer;
var
m, i:integer;
begin
m := a[1];
for i := 2 to n do
if m< a[i] then
m := a[i];
Max := m;
end;
function Min(a:array[1..n] of integer):integer;
var
m, i:integer;
begin
m := a[1];
for i := 2 to n do
if m > a[i] then
m := a[i];
Min := m;
end;
var
a:array[1..n] of integer;
i:integer;
begin
randomize;
writeln('Исходный массив:');
for i := 1 to n do
begin
a[i] := random(21) - 10;
write(a[i], ' ');
end;
writeln;
writeln('Max = ', Max(a));
writeln('Min = ', Min(a));
writeln('Max - Min = ', Max(a) - Min(a));
end.
Ответить
Другие вопросы из категории
автоматическое устройство осуществило перекодировку информационного сообщения на русском языке длинной в 20 символов, первоначально записанного в
2-байтном коде Unicode, в 8-битную кодировку КОИ-8. На сколько бит уменьшилась длина сообщения?
помогоите пожалуйста!) Объем свободной памяти на диске -0,03 Гб, разрядность звуковой платы-8. Какова длительность звучания цифрового аудиофайла, записа
нного с частотой дискретизации 22,5 кГц?
Читайте также
1)Вывести массив 4*4
1 3 5 7
1 3 5 7
1 3 5 7
1 3 5 7
2)Массив 4*4
0010
0100
0000
1100
Подсчитать количество нулей и единиц
3)Случайным образом вывести массив 5*5 (50)
A[I,j]:= random (50);
Сумму элементов массива
Ребят!!! Срочно!!! Помогите с информатикой пожалуйста
Вычислить разность между наибольштм и наименьшим элементами массива
Составьте программу, которая для одномерного массива, содержащего n элементов вычисляет и отображает: 1) сумму элементов массива; 2)произведение чётных
элементов; 3) сумму элементов которые делятся на 3; 4) минимальный и максимальный элемент. (используя procedure или function, но чтоб была рекурсия)ПОЖАЛУЙСТА ПОМОГИТЕ ВОПРОС ЖИЗНИ И СМЕРТИ!!
Помогите, пожалуйста!! Язык программирования Паскаль.
1) Найти количество отрицательных элементов в массиве А [3,8].
2) Заполнит и вывести массив Р [6,7], запросить номер строки и вывести её на экран.
3) Заполнить и вывести массив Р [6,7], запросить номер строки, заменить все её элементы на 5 и вывести новый массив.
4) В квадратной матрице А [10,10] заменить элементы главной диагонали на 0.
Всё нужно очень срочно
HELP ME!! задан массив размерностью (10х10) элементов. присвоить элементам массиваизначение функции Y=cos(x^0.25-0.5x^0.5+0.25x^0.75) при изменении
аргумента от 6 с шагом 0.25.
найти максимальный элемент массива. сформулировать новый массив путем вычеркивания строки и столбца, на которых расположен максимальный элемент.
вывести на экран в формате 3 знака после запятой:
1. исходный массив
2. полученный массив
3. искомые элементы ( если они есть)
предесмотреть возможность вывода на экран и в файл....
Вы находитесь на странице вопроса "Помогите срочно надо.Вывести массив М девяти элементов. Вычислить разность между минимальными и максимальными элементами. Использовать подпрограммы.В", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.