Споявлением мобильной связи люди стали задавать вопрос который раньше никогда задавали этот вопрос

274

497

Посмотреть ответы 2

Ответы на вопрос:

VaReNiK37

Информатика

4,5(48 оценок)

От куда взялась эта вселенная

kulvera75

Информатика

4,4(90 оценок)

Program mass; uses crt; var a: array [1..10] of integer; i: integer; begin randomize; writeln('исходдный массив: '); for i : = 1 to 10 do begin a[i] : = random(20) - 10; write(' ', a[i], ' '); end; writeln; writeln('после замены отрицательных чисел на 0: '); for i : = 1 to 10 do begin if a[i] < 0 then a[i] : = 0; write(' ', a[i], ' '); end; writeln; end. ща переделаю не увидел что ті изменила