Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Заполнить массив из 10 элементов случайными числами в интервале [-10..10]. Заполните массив B[10], полученный из массива А путем умножения отрицательных его элементов на 2, а положительных на 3. Выведите массив A и B

Ответ оставил Гость

uses crt;
var i:integer;
a:array[1..10] of integer;
b:array[1..10] of integer;
begin
randomize;
for i:=1 to 10 do a[i]:=random(21)-10;
for i:=1 to 10 do write(a[i], );
for i:=1 to 10 do
begin
if a[i]<0 then b[i]:=2*a[i]
else b[i]:=3*a[i];
end;
writeln;
for i:=1 to 10 do write(b[i], );
readln;
end.