В массиве из 5 элементов, заданных с клавиатуры, найдите разность между наибольшим и наименьшим элементом (pascal abc)

- 30 April 2021
- Автор: morebrains
В массиве из 5 элементов, заданных с клавиатуры, найдите разность между наибольшим и наименьшим элементом (pascal abc)
- 30 April 2021
- Ответ оставил: Wani4kaa
Ты поддерживаешь переменные min и max для хранения наибольшего и наименьшего элементов массива. Когда ты вводишь элемент, ты проверяешь - если введённый элемент больше наибольшего, ты обновляешь наибольший. Если введённый элемент меньше наименьшего, ты обновляешь наименьший.
Важно задать min и max такие начальные значения, чтобы наибольший и наименьший элементы посчитались правильно. Для этого max нужно присвоить настолько большое значение, что при проверке задачи его не будут вводить. Для min нужно задать очень маленькое значение, которое тоже гарантированно не будет введено. Обычно диапазон вводимых чисел оговаривается в условии.

Код
var
a: array[1..5] of integer;
i, max, min: integer;

begin
max := -32000;
min := 32000;
for i := 1 to 5 do
begin
read(a[i]);
if a[i] > max then max := a[i];
if a[i] < min then min := a[i];
end;
writeln(max - min);
end.

0
- 30 April 2021
- Ответ оставил: pryhodzichdavid
var
a: array[1..5] of integer;
i, z, x: integer;
begin
z := -1;
x:=1;
for i := 1 to 5 do
begin
read(a[i]);
if (a[i] >z) then z := a[i];
if (a[i] <x) then x := a[i];
end;
writeln(z - x);
end.

0

- НЕ НАШЛИ ОТВЕТ?
Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: информатика.
На сегодняшний день (22.02.2025) наш сайт содержит 16354 вопросов, по теме: информатика. Возможно среди них вы найдете подходящий ответ на свой вопрос.

Найти другие ответы
Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

Ответить на вопрос

Последние опубликованные вопросы

Некоторый алфавит состоит из 64 символов. В сообщении 60 символов. Определите информационный объем сообщения. Определите в виде эссе личный уровень владения современными информационными технологиями. Опишите имеющиеся навыки работы в: - офисных программах (текстовый редактор, табличный процессор, построит... Зачем в C++ нужна библиотека stdio.h, и какова ее функция? составить блок- схему решения выражения (23+34)*57/3 ПАСКАЛЬ. Решите задачу с помощью строк. Пользователь водит слово - мама, и букву - м. Паскаль выводит количество этих самых букв из строки, которую мы ввели , то есть 2. Еще пример: Введите слово... Дам 20 баллов! Дано логическое выражение, зависящее от 6 логических переменных: X1 ∧ ¬X2 ∧ X3 ∧ ¬X4 ∧ X5 ∧ X6 Сколько существует различных наборов значений переменных, при которых выражение истин... Спасите!!!!!!!!!!!!!!!!!!!!!!!!!!!! Таблица в Microsoft access служит для …. данных (может быть несколько) а) автоматизации ввода б) ввода в) хранения Сколько битов в 20 ниблах Спасите!!!!!!!!!!!!!!!!!!!!!!!!!!!! Таблица в Microsoft access служит для …. данных (может быть несколько) а) автоматизации ввода б) ввода в) хранения Арбуз с точки зрения агронома, покупателя, художника Расставьте по убыванию: 1 Бит, 1байт, 1Кбайт, 1Мбайт, 1Гбайт, 1Тбайт ПОМОГИТЕ ПОЖАЛУЙСТА!!!)) Вводится трехразрядное двоичное число. Перевести это число в десятичную систему счисления.

В массиве из 5 элементов, заданных с клавиатуры, найдите разность между наибольшим и наименьшим элементом (pascal abc)

Код

var a: array[1..5] of integer; i, z, x: integer;begin z := -1; x:=1; for i := 1 to 5 do begin read(a[i]); if (a[i] >z) then z := a[i]; if (a[i] <x) then x := a[i]; end; writeln(z - x);end.

Последние опубликованные вопросы

var
a: array[1..5] of integer;
i, z, x: integer;
begin
z := -1;
x:=1;
for i := 1 to 5 do
begin
read(a[i]);
if (a[i] >z) then z := a[i];
if (a[i] <x) then x := a[i];
end;
writeln(z - x);
end.