В массиве из 20 случайных цифр из диапозона -10+10заменить все отрицательные чис...

March 2022 1 11 Report

В массиве из 20 случайных цифр из диапозона -10+10заменить все отрицательные числа на максимальные все положительные на минимальные

Answers & Comments

vladmor //PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
const n = 20;
var
a: array[1..20] of integer;
i, min, max: integer;

begin
min := MaxInt;max := -MaxInt;
writeln('Исходный массив :');
for i := 1 to n do
begin
    a[i] := random(-10, 10);write(a[i]:4);
    if a[i] < min then min := a[i];
    if a[i] > max then max := a[i];
end;
writeln;
writeln('min = ',min,' max = ',max);
writeln('Массив после обработки:');
for i := 1 to n do
begin
    if a[i] < 0 then a[i] := max
    else a[i] := min;
    write(a[i]:4);
end;
end.

Тестовое решение:
Исходный массив :
   7 -9   0 -3 -2   7 -1   3 -4   2   0   3 -6   5 -1 -9   7 -7   6   6
min = -9 max = 7
Массив после обработки:
-9   7 -9   7   7 -9   7 -9   7 -9 -9 -9   7 -9   7   7 -9   7 -9 -9

0 votes Thanks 0

Answers & Comments

ugol padenin lucha raven 10 kakim budet ugol otrazhenie esli zerkalo povernut na

massiv a vvoditsya s klaviatury najti summu ego elementov razmer proizvolnyj3898d7b8d7cb17aaf7dde25e97fc4214 72364

perevidite ne cherez perevodchik sergei korolev1907 1966a rocket engineer and

рекомендуемые вопросы

Helpful Links

Helpful Social