Однажды, путешествуя поездом пооднажды, путешествуя поездом по стране, тролль габа вспомнил, что ему - id199446120210108 от murrrКотя 08.01.2021 19:17

Question

Информатика: Однажды, путешествуя поездом пооднажды, путешествуя поездом по стране, тролль габа вспомнил, что ему необходимо отправить электронное сообщение, но сделать это он сможет только на ближайшей станциями будут веткино, крутилино, жилино, тужилино. на каждой станции есть интернет-комнаты, в работе которых предусмотрен часовой обед. на вышеперечисленных станциях он начался в 12: 00, 13: 00, 14: 00 и 15: 00 соответственно. когда габа вспомнил это, его часы показывали 11: 40. до ближайшей станции - веткино

murrrКотя · Accepted Answer

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var
a: array of integer;
i, n: integer;

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

Тестовое решение:
Введите n 10
Исходный массив :
-19 -14 -14   1   2 16 16 -6   0 19
Массив после обработки:
10 10 10   1   2 16 16 10   0 19

MOGZ ответил