Автор: zinvor 15.12.2008 23:19
задать массив и все элеементы массива умножить на одно и то же число(вводится с клавиатуры)
Автор: Unconnected 15.12.2008 23:26
Код
const a=10;
var mas1:array[1..a] of integer;
b,c:integer;
begin
randomize;
writeln('Введите число для умножения');
readln(c);
for b:=1 to a do
begin
mas1[b]:=random(20)+1;
mas1[b]:=mas1[b]*c;
write(mas1[b],' ');
end;
readln;
end.