Помощь - Поиск - Пользователи - Календарь
Полная версия: Помогите решить задачу на массивы!СРОЧНО!
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.