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

Question

Информатика

Лучеро

29 декабря, 13:23

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

+1

Ответы (2)

Знаете ответ на вопрос?

Калиньник · Answer 1

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.

Сержалина · Answer 2

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;