Завдання для вирішення: 1) Дан цілочисельний масив з 30 елементів. Елементи масиву можуть приймати цілі - id1777326620210512 от Varvarrrrrrrrrra 12.05.2021 16:11

Question

Информатика: Завдання для вирішення: 1) Дан цілочисельний масив з 30 елементів. Елементи масиву можуть приймати цілі значення від 0 до 10 000 включно. Напишіть програму, яка знаходить всі мінімальні значення і замінює їх на максимальні. Гарантується, що в масиві є хоча б два різних елемента. В якості результату необхідно вивести змінений масив, кожен елемент масиву виводиться з нового рядка. Наприклад, для масиву з восьми елементів: 29 4 115 7 195 25 4 106 програма повинна вивести (по одному числу в рядку) числа:

Varvarrrrrrrrrra · Accepted Answer

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017 // Внимание! Если программа не работает, обновите версию! begin   var (p,q,s):=(1,2,0);   var k:=0;   Write( (1,5) );   for var i:=3 to 1000 do begin     var (flag,j,r):=(True,2,Round(Sqrt(i)));     while flag and (j =r) do       if i mod j = 0 then flag:=false       else j+=1;     if flag then begin       (p,q,s):=(q,s,i);       if q-p=4 then Write( ( ,p, , ,q, ) )       else         if s-p=4 then Write( ( ,p, , ,s, ) )       end     end end. Результат...

MOGZ ответил