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

написать кол на паскале: составьте программу, в которой пользователь вводит с клавиатуры три целых числа a, b и с. Числа могут быть как отрицательные, так и положительные. Программа должна определить наибольшее расстояние mx между числами и вывести его на экран. Использовать другие переменные, а также изменять значение a, b и с после ввода запрещается​

👇
Ответ:
Хаурма7
Хаурма7
09.06.2023

Объяснение:

.......................


написать кол на паскале: составьте программу, в которой пользователь вводит с клавиатуры три целых ч
написать кол на паскале: составьте программу, в которой пользователь вводит с клавиатуры три целых ч
4,6(84 оценок)
Открыть все ответы
Ответ:
fedotovanatolij
fedotovanatolij
09.06.2023

Никита,оставшись.один,пошёл в сарай и увидел там пустую бочку.Он думал,что в ней живёт маленький человечек с длиной бородой.Никита разговаривал с ним,по отдать ножницы,которые пропали у мамы.За деревней кто-то ухнул.Бочка отозвалась страшным голосом.Никита испугался и по защиты у солнца.

Солнце было доброе и ласковое.Никита подумал,что это дедушка теперь живёт на солнце.

За огородом находился старый колодец.Никита думал,что на дне живут маленькие водяные жители,толстые,безволосые и вредные.Потом ему представилось,что там ещё и великан.

У сарая он увидел две земляные норы.Он решил,что это змеиные норы.

Никита увидел на огороде старый пень и решил,что это голова человека.Лицо у пня было сердитое.

Он смотрел на старую баню и думал.что это бабушка превратилась в избушку.

Петух представлялся ему пастухом,а цветок-маленьким ребёнком.

4,5(68 оценок)
Ответ:
tanyaosipova01
tanyaosipova01
09.06.2023
Program Pas02;
uses Crt;
const
  n=20;
var
  a:array[1..n] of real;
  i,k:integer;
  t:real;
begin
  Randomize;
  ClrScr;
  Writeln('Массив случайных чисел');
  k:=0;
  for i:=1 to n do begin
    a[i]:=Random(31)-15.0;
    Write(a[i]:6:1);
    if a[i]=10.0 then Inc(k)
    end;
  Writeln;
  Writeln('Количество элементов, равных 10: ',k);
  Write('Нулевые элементы ');
  k:=0;
  for i:=1 to n do
    if a[i]=0 then begin Inc(k); Write(i,' ') end;
  if k=0 then Writeln('отсутствуют') else Writeln;
  Writeln('Меняем местами элементы 3 и 6');
  t:=a[3];
  a[3]:=a[6];
  a[6]:=t;
  for i:=1 to n do
    Write(a[i]:6:1);
  Writeln
end.

Тестовое решение
Массив случайных чисел
   2.0 -12.0   8.0  -2.0  -1.0   3.0 -12.0  -9.0   3.0   9.0  -8.0   0.0  -7.0  -4.0 -12.0  10.0   9.0   5.0  -8.0   6.0
Количество элементов, равных 10: 1
Нулевые элементы 12
Меняем местами элементы 3 и 6
   2.0 -12.0   3.0  -2.0  -1.0   8.0 -12.0  -9.0   3.0   9.0  -8.0   0.0  -7.0  -4.0 -12.0  10.0   9.0   5.0  -8.0   6.0
4,8(66 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ