Сформировать массив, состоящий из 15 элементов, с датчика случайных чисел. получить новый массив, каждый элемент которого равен увеличенному вдвое соответствующего элемента исходного массива.
Var b,c:integer; a: array [1..20] of integer; {объявляем массив} begin randomize; {говорим что будем использовать в теле программы рандомные числа} for b:=1 to 15 do begin {жи есть цикл программы который заполняет наш массив от первой ячейки (b) до 15 ячейки } a[b]:=random(1000); {присваиваем элементам массива рандомные значения} write(a[b]); {выводим эти значения} writeln(' <== ',a[b]*2); {рядом выводим точно такой же массив с такими же числами, только умноженными на 2 , а стрелочка для красоты } end; end. надеюсь что так можно? ;D
Информационная деятельность - это совокупность действий, направленных на удовлетворение информационных потребностей граждан, юридических лиц и государства. В целях удовлетворения этих потребностей органы государственной власти и органы местного и регионального самоуправления создают информационные службы, системы, сети, базы и банки данных. Порядок их создания, структура, права и обязанности определяются Кабинетом Министров Украины или другими органами государственной власти, а также органами местного и регионального самоуправления.
a: array [1..20] of integer; {объявляем массив}
begin
randomize; {говорим что будем использовать в теле программы рандомные числа}
for b:=1 to 15 do begin {жи есть цикл программы который заполняет наш массив от первой ячейки (b) до 15 ячейки }
a[b]:=random(1000); {присваиваем элементам массива рандомные значения}
write(a[b]); {выводим эти значения}
writeln(' <== ',a[b]*2); {рядом выводим точно такой же массив с такими же числами, только умноженными на 2 , а стрелочка для красоты }
end;
end.
надеюсь что так можно? ;D