Помогите решить задачу на массивы!СРОЧНО! Опции

[zinvor]

задать массив и все элеементы массива умножить на одно и то же число(вводится с клавиатуры)

[Unconnected]

Код

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.

Сообщение отредактировано: Unconnected - 15.12.2008 23:27