Предмет: Информатика,
автор: Zzz755
Сформируйте массив, содержащий 15 элементов, с помощью датчика случайных чисел. Получите новый массив, каждый элемент которого равен увеличенному на заданное с клавиатуры число соответствующему элементу исходного массива. Выведите на экран исходные и полученные результаты.
Ответы
Автор ответа:
0
const
SIZE = 15;
var
a, b:array[1..SIZE] of integer;
i, r, num:integer;
begin
Randomize;
for i:=1 to SIZE do a[i]:= Random(100) + 1;
for i := 1 to SIZE do write(a[i], ' ');
writeln;
for i:=1 to SIZE do
begin
read(num);
b[i]:= a[i] + num;
end;
for i := 1 to SIZE do write(b[i], ' ');
end.
SIZE = 15;
var
a, b:array[1..SIZE] of integer;
i, r, num:integer;
begin
Randomize;
for i:=1 to SIZE do a[i]:= Random(100) + 1;
for i := 1 to SIZE do write(a[i], ' ');
writeln;
for i:=1 to SIZE do
begin
read(num);
b[i]:= a[i] + num;
end;
for i := 1 to SIZE do write(b[i], ' ');
end.
Похожие вопросы
Предмет: Физика,
автор: dildora16
Предмет: Русский язык,
автор: liska888
Предмет: Английский язык,
автор: uzer7346
Предмет: История,
автор: аккаунт0012
Предмет: Математика,
автор: Аноним