Top.Mail.Ru
Ответы
Аватар пользователя
alim_dugpokov
2г
Аватар пользователяПрограммирование

Информатика 10 класс. Программирование на Паскаль.

Задаётся 20 рандомных элементов массива. Найти сумму максимального и минимального числа и выдать их номера.

По дате
По рейтингу
Аватар пользователя
kublen
Оракул
2г

еще немного короче
program MaxMinSum;
const
N = 20; // количество элементов в массиве
var
arr: array[1..N] of Integer; // объявление массива
i, maxIndex, minIndex, sum: Integer; // переменные

begin
// Заполняем массив рандомными числами
for i := 1 to N do
arr[i] := Random(100); // генерация случайного числа от 0 до 99

// Находим максимальное и минимальное число в массиве
maxIndex := 1;
minIndex := 1;
for i := 2 to N do
begin
if arr[i] > arr[maxindex] then
maxIndex := i;
if arr[i] < arr[minindex] then
minIndex := i;
end;

// Вычисляем сумму максимального и минимального числа
sum := arr[maxindex] + arr[minindex];

// Выводим результаты
writeln('Максимальное число: ', arr[maxindex]);
writeln('Минимальное число: ', arr[minindex]);
writeln('Номер максимального числа: ', maxIndex);
writeln('Номер минимального числа: ', minIndex);
writeln('Сумма максимального и минимального числа: ', sum);
end.

Аватар пользователя
slomix
Мудрец
2г
12345678910111213141516171819202122232425262728293031323334353637383940414243
 program MaxMinSum; 
 
const 
  N = 20; // количество элементов в массиве 
 
var 
  arr: array[1..N] of Integer; // объявление массива 
  i, max, min, maxIndex, minIndex, sum: Integer; // переменные 
 
begin 
  // Заполняем массив рандомными числами 
  for i := 1 to N do 
    arr[i] := Random(100); // генерация случайного числа от 0 до 99 
 
  // Находим максимальное и минимальное число в массиве 
  max := arr[1]; 
  min := arr[1]; 
  maxIndex := 1; 
  minIndex := 1; 
  for i := 2 to N do 
  begin 
    if arr[i] > max then 
    begin 
      max := arr[i]; 
      maxIndex := i; 
    end; 
    if arr[i] < min then 
    begin 
      min := arr[i]; 
      minIndex := i; 
    end; 
  end; 
 
  // Вычисляем сумму максимального и минимального числа 
  sum := max + min; 
 
  // Выводим результаты 
  writeln('Максимальное число: ', max); 
  writeln('Минимальное число: ', min); 
  writeln('Номер максимального числа: ', maxIndex); 
  writeln('Номер минимального числа: ', minIndex); 
  writeln('Сумма максимального и минимального числа: ', sum); 
end.

Программа создает массив из 20 элементов, заполняет его случайными числами, находит максимальное и минимальное число, выводит их значения и номера, а также вычисляет и выводит сумму максимального и минимального числа.

Больше по теме