Сформируйте массив, содержащий 15 элементов, с помощью датчика случайных чисел. Получите новый массив, каждый элемент которого равен увеличенному на
10-11 класс
|
заданное с клавиатуры число соответствующему элементу исходного массива. Выведите на экран исходные и полученные результаты.
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.
Другие вопросы из категории
Найти произведение наибольших элементов двумерного массива, первый элемент которого отрицателен.
3,0,1,7,4,5,6,2,9,0.
Как изменится порядок элементов после выполнения фрагмента Паскаль-программы описанного ниже?
...
for i:=1 to 5 do
begin
t:=a[i];
a[i]:=a[11-i];
a[11-i]:=t;
end;
...
Читайте также
индексами. выведите на экран исходный массив и полученное среднее арифметическое.
2. Задайте массив из 10 элементов с помощью датчика случайных чисел. замените все элементы с четными индексами максимальными. Выведите на экран исходный и измененный массивы
индексов элементов главной диагонали.Выведите на экран исходный и измененный массивы (программа на языке Паскаля)
2)Составьте программу формирования и вывода на экран одномерного массива, состоящего из удвоенных минимальных элементов строк двумерного массива, заданного с помощью датчика случайных чисел
соответствующего элемента исходного массива. в полученном массиве определите насколько максимальный элемент исходного массива отличается от минимального элемента нового массива. выведите на экран исходные и полученные результаты
сформулируйте массив содержащий 15 элементов, с помощью датчика случайных чисел. получите новый массив, каждый элемент которого равен квадрату соответствующего элемента исходного массива. в полученном массиве определите насколько максимальный элемент исходного массива отличается от минимального элемента нового массива. выведите на экран исходные и полученные результаты
Выведите на экран исходный и полученный массив. На Паскале