Задан массив заполненный случайным образом получить массив к каждому элементу исходного прибавить 13

Question

Информатика

Патап

15 мая, 16:27

Задан массив заполненный случайным образом получить массив к каждому элементу исходного прибавить 13

+2

Ответы (2)

Знаете ответ?

Донтрелл · Answer 1

Var a: array[1 ... 12] real

i: integer

begin

for i=1 do 12 do

read (a[i])

for i=1 do 12 do

begin;

a[i]=a[i]+13

end;

Лут · Answer 2

var a:array [1 ... 10] of integer;

i:integer;

begin

for i:=1 to 10 do a[i]:=random (10) - 9;

writeln ('Исходный массив: ', a) ;

for i:=1 to 10 do a[i]:=a[i]+13;

writeln ('Полученный массив: ', a)

end.