М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
kuppols
kuppols
09.09.2020 07:10 •  Информатика

Задание 1. На С++ используя локальные переменные разработать программу в соответствии со следующими условиями. В главной функции заполнить 8 -элементный целочисленный массив с клавиатуры и задать два дробных числа. Спроектировать две отдельные функции: 1) запись элементов массива в файл в виде матрицы 2˟4;
2) нахождение наибольшего из двух дробных чисел; вывод результата произвести в главной функции.
Интерфейс программы оформить в виде меню. Выход из программы по – желанию пользователя.
Задание 2. Используя глобальные переменные разработать программу в соответствии с условиями Задания 1.
Задание 3(дополнительно). Объединить две разработанные программы в одну и сделать общее меню.

👇
Открыть все ответы
Ответ:
BaSfOr
BaSfOr
09.09.2020
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var
  a: array of integer;
  i, n: integer;

begin
  write('Введите n ');readln(n);
  SetLength(a, n);
  writeln('Исходный массив :');
  for i := 0 to n - 1 do
  begin
    a[i] := random(-20, 20);write(a[i]:4);
  end;
  writeln;
  writeln('Массив после обработки:');
  for i := 0 to n - 1 do
  begin
    if a[i] < 0 then a[i] := 10;
    write(a[i]:4);
  end;
end.

Тестовое решение:
Введите n 10
Исходный массив :
 -19 -14 -14   1   2  16  16  -6   0  19
Массив после обработки:
  10  10  10   1   2  16  16  10   0  19
4,6(21 оценок)
Ответ:
roxolanavarLana
roxolanavarLana
09.09.2020

Объяснение:

programm.top /pascal

Минимальный элемент массива

Главная  Pascal Алгоритмы  Алгоритмы поиска  Минимальный элемент  минимальный элемент массиваочень просто. Если это упорядоченный массив, то достаточно вернуть первое или последнее значение, в зависимости от того, как отсортированы данные, от наименьшего к наибольшему или от наибольших к наименьшим. Это очень простая задача.В случае с неотсортированным массивом, задача поиска минимального значения элемента сводиться к полному обходу всех элементов и выбора из них -минимума.

Код программы для поиска минимального, по значению, элемента неупорядоченного массива

{$CODEPAGE UTF8} program Minimal; const arrayLength = 10; var inputArray : array [1..arrayLength] of integer; minimum, i: integer; begin randomize; writeln ('Исходный массив: '); {заполнение случайными числами} for i := 1 to arrayLength do begin inputArray[i] := random(100); write (inputArray[i]:4); end; writeln; {поиск минимального значения} {считаем что первый элемент и есть минимальный} minimum := inputArray[1]; for i := 2 to arrayLength do if minimum > inputArray[i] then {если минимум больше текущего} minimum := inputArray[i]; {присваиваем ему текущее значение} write('Минимальный элемент массива ', minimum); readln; end.

4,4(8 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ