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

С клавиатуры вводятся 10 чисел
Написать программу, которая определяет наименьшее и наибольшее. Pascal ABC

👇
Ответ:
Angelochek167
Angelochek167
08.05.2023

const

n=10;

type

mas = array [1..n] of real;

procedure search(massive : mas);

var j : integer;

max, min : real;

begin

 max := 1;

 min := 1;

 for j:=1 to n do

   begin

     if massive[j] > max then

        max := massive[j];

     if massive[j] < min then

       min := massive[j];

   end;    

  writeln;

  writeln('наибольший элемент: ', max);  

  writeln('наименьший элемент: ', min);

end;

var

i : integer;

a : mas;

begin

 writeln('введите массив: ');

 for i:=1 to n do

     read(a[i]);

 writeln('массив: ' );

 for i:=1 to n do

   write(a[i]:4);

 search(a);

end.

4,5(95 оценок)
Открыть все ответы
Ответ:
astatined
astatined
08.05.2023

В любую операционную систему встроен браузер, если он не угодил, можно скачать с интернета. Для того, чтобы скачать его с интернета, нужно ввести название браузера, а позже слово "скачать", вам откроются множество сайтов, но самый первый - будет оффициальный сайт. После входа на сайт, будет представлен большой(или не очень) сайт, там должна быть кнопка "Скачать". После скачивания инсталлятора нам необходимо его установить на ПК, для этого его нужно открыть, после установки браузером можно пользоваться!

4,8(72 оценок)
Ответ:
Dzdze
Dzdze
08.05.2023

Відповідь:

ТОЧНО ОТВЕТ ДАТЬ НЕ МОГУ НО МОЖНА ОРИЕНТИРОВАТСЯ ПО ЭТОМУ

begin   //начало программы

var nk, nt, ck ,ct, s: integer  // задание переменных типа действительные числа;

writeln('Введите количество карандашей'); //вывести на экран надпись

readln(nk);  // запись ответа пользователя в переменную nk

writeln('Введите количество тетрадей'); //вывод на экран надписи

readln(nt); // запись ответа пользователя

writeln('Введите стоимость 1 карандаша');  // вывод на экран надписи

readln(ck); // запись ответа пользователя в переменную

writeln('Введите стоимость 1 тетради');

readln(ct);

s:=(nk*ck)+(nt*ct); // вычисление стоимости покупки

writeln('Стоимость покупки: ',s);  // вывод стоимости покупки на экран

end.  // конец программы

(ck-стоимость 1 карандаша, ct-стоимость 1 тетради, s-стоимость покупки)

(nk-количество карандашей, nt-количество тетрадей)

Детальніше - на -

Пояснення:

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