Задать вопрос
6 декабря, 07:12

Помогите сделать информатику!

написать алгоритм нахождения максимального значения среди 4 целых чисел. составить блок схему

+1
Ответы (1)
  1. 6 декабря, 09:51
    0
    var j, i, buf:integer;

    mass:array[1 ... 4] of integer;

    begin

    for i:=1 to 4 do

    begin

    mass[i]:=random (100) ;

    write (mass[i],' ') ;

    end;

    for i:=1 to 4-1 do

    for j:=1 to 4-i do

    if (mass[j] > mass[j+1]) then

    begin

    buf : = mass[j];

    mass[j] : = mass[j+1];

    mass[j+1] : = buf;

    end;

    writeln;

    for i:=1 to 4 do

    begin

    write (mass[i],' ') ;

    end;

    writeln;

    write ('Наиболший элемент=', mass[4]) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Помогите сделать информатику! написать алгоритм нахождения максимального значения среди 4 целых чисел. составить блок схему ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Помогите с паскалем 1. написать алгоритм нахождения максимального среди 4 целых чисел. 2. написать алгоритм проверки: имеются ли среди трех целых чисел два положительных значения. 3.
Ответы (1)
написать программу нахождения максимального числа, где должны быть: 1. ввод 10 чисел с клавиатуры 2. их перебор с нахождением максимального элемента 3. вывод значения максимального элемента в текстовый файл (программа должна его создать)
Ответы (1)
1. Составьте блок-схему для решения задачи: Найти площадь S и периметр P прямоугольника. Значения сторон а и в задать произвольно. 2. Составить блок - схему кипячения чайника. 3. Составить алгоритм сбора яблок в саду.
Ответы (1)
Решение есть. нужно его объяснить. Опишите на русском языке или на одном из языков программирования алгоритм вычисления разности максимального среди элементов, имеющих четные значения, и максимального среди элементов имеющих нечетные значения, в
Ответы (1)
Y={0, если х≤0 х, если 0
Ответы (1)