Напишите программу, которая после ввода двух целых чисел делит первое число на второе и выводит на экран - id1623673620200912 от Ymnikas 12.09.2020 06:14

Question

Информатика: Напишите программу, которая после ввода двух целых чисел делит первое число на второе и выводит на экран сообщение об остатке (если он есть) и частном (в любом случае).

Ymnikas · Accepted Answer

Const
n = 8;

var
a: array[1..n]of integer;
i, j, k, max: integer;

begin
max := -MaxInt;
for i := 1 to n do
begin
    write('a[', i, ']= ');
    readln(a[i]);
    if a[i] > max then max := a[i];
end;
writeln(' максимальный элемент массива = ', max);
//сортировка методом пузырька
for i := 1 to n - 1 do
    for j := 1 to n - i do
      if a[j] < a[j + 1] then begin
        k := a[j];
        a[j] := a[j + 1];
        a[j + 1] := k
      end;
//вывод массива
for i := 1 to n do write(a[i]:4);
end.

Тестовое решение:
a[1]= 12
a[2]= 4
a[3]= 6
a[4]= 23
a[5]= 4
a[6]= 7
a[7]= 8
a[8]= 1
максимальный элемент массива = 23
23 12   8   7   6   4   4   1

MOGZ ответил