Хей,хелп,сомбади одномерный массив из 10 элементов заполнить случайным образом числами от -5 до 5. заменить все отрицательные элементы массива 0,а положительные увеличить на 2. вывести на экран монитора первоначальный и преобразованный массивы в строчку.

113

396

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

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

ksenia20015

Информатика

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

Pascalabc.net var i: integer; a: array[1..10]of integer; begin writeln('исходный массив: '); for i: =1 to 10 do begin a[i]: =random(-5,5); write(a[i]: 4); end; for i: =1 to 10 do if a[i]> 0 then a[i]: =a[i]+2 else a[i]: =0; writeln; writeln('преобразованный массив: '); for i: =1 to 10 do write(a[i]: 4); end.

Троцкий1

Информатика

4,7(31 оценок)

Var a,b: array [0..10] of longint; q: longint; begin for q: =1 to 10 do begin a[q]: =random(11)-5; if a[q]> 0 then b[q]: =a[q]+2; write(a[q],' '); end; writeln(); for q: =1 to 10 do write(b[q],' '); end.