Одномерный массив из 15 элементов заполнить случайным образом числами от 7 до 12. Присвоить 8-му элементу значение 10-го элемента, увеличенное а 5, а
5-9 класс
|
10-му элементу присвоить значение 13. Вывести на экран монитора первоначальный и преобразованный массивы в строчку.
var
i:integer;
a:array[1..15]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 15 do
begin
a[i]:=random(7,12);
write(a[i]:4);
end;
writeln;
a[8]:=a[10]+5;
a[10]:=13;
writeln('Преобразованный массив:');
for i:=1 to 15 do
write(a[i]:4);
end.
Другие вопросы из категории
Я пробовала через ноли не поулчается до конца упростить,
вот как я составляла: (X+Y+Z)*(неX+Y+неZ)*(неX+неY+Z)
Заранее большое спасибо)
Читайте также
2. Создать массив A из 10 элементов, заполненный случайным образом числами принадлежащих промежутку (0;20). Вывести полученный массив на экран. Вычислить количество элементов массива, значения которых не превышают среднее арифметическое значений его элементов.
значение предыдущего,при этом первому элементу должно присвоиться значение последнего элемента таблицы. Вывести на экран монитора первоначальный и преобразованный массивы в столбик(столбики должны быть расположены рядом).
значение 4-го элемента.
первоначальный и преобразованный массивы в сточку.
первоначальный и преобразованный массивы в столбик.