Задание 6 Вариант 3 Самостоятельная работа 4 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)

Ниже вариант решения задания из учебника Босова, Босова, Аквилянов 11 класс, Бином:

6. Напишите программу. Дан целочисленный массив С[1..1ОО]. Подсчитайте разность значений наибольшего и наименьшего элементов данного массива.

Наибольший элемент равен:.....

Наименьший элемент равен:.....

Разность наибольшего и наименьшего элементов равна:.....

program s4_v3_6;

const

n = 100;

var

c: array[1..n] of integer;

i, max, min: integer;

begin

writeln(taskввод массиваtask);

randomize;

for i := 1 to n do

c[i] := random(100);

max := c[1]; min := c[1];

for i := 1 to n do

begin

if c[i] > max then max := c[i];

if c[i]

end;

writeln(taskmax=task, max, task min=task, min, task max-min=task, max - min)

end.

Наибольший элемент равен: 99

Наименьший элемент равен: 0

Разница наибольшего и наименьшего элемента равна: 99