задать массив и все элеементы массива умножить на одно и то же число(вводится с клавиатуры)
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.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.