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

olgagk1 olgagk1    3   01.10.2019 19:40    0

Ответы
Anastasia13577 Anastasia13577  09.10.2020 10:17
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;
ПОКАЗАТЬ ОТВЕТЫ
evgenyzuzev evgenyzuzev  09.10.2020 10:17

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика