Помогите пожалуйста. СРОЧНО создать одномерный массив в котором нужно умножить каждый его элемент на целое число. В результате чего на экране должен исходный и ред. массивы..результат должен выдавать два столбика. Заранее спасибо!

1

Ответы и объяснения

Лучший Ответ!
2014-04-06T14:43:28+04:00
Uses crt;
var a,b:array [1..100] of integer;
n,k,i:integer;
begin
randomize;
writeln('Введите размерность массива: '); readln(n);
writeln('Введите множитель для массива: '); readln(k);
for i:=1 to n do
a[i]:=random(101)-50;
for i:=1 to n do
b[i]:=a[i]*k;
for i:=1 to n do
writeln(a[i]:5,' | ',b[i]:5);
end.