Помогите пожалуйста!!!! Задайте массив из 10 элементов с помощью датчика случайных чисел. Замените все элементы с нечетными индексами
10-11 класс
|
на минимальный. Выведите на экран исходный и полученный массивы.
writeln( 'Src' );
for i := 1 to 10 do begin a[ i ] := random(100); writerln( 'a[ ', i, '] = ', a[ i ] ); if (i = 1) or (a[ i ] < min) then min := a[ i ]; end;
writeln( 'Result' );
for i := 1 to 10 do begin if (odd(i)) then a[ i ] := min; writerln( 'a[ ', i, '] = ', a[ i ] ); end;
Другие вопросы из категории
Задача на строки. в предложении все сочетания символов "ух" или "Ух" заменит на "ах". Посчитать количество слов в предложении.
Читайте также
индексами. выведите на экран исходный массив и полученное среднее арифметическое.
2. Задайте массив из 10 элементов с помощью датчика случайных чисел. замените все элементы с четными индексами максимальными. Выведите на экран исходный и измененный массивы
индексов элементов главной диагонали.Выведите на экран исходный и измененный массивы (программа на языке Паскаля)
2)Составьте программу формирования и вывода на экран одномерного массива, состоящего из удвоенных минимальных элементов строк двумерного массива, заданного с помощью датчика случайных чисел
нечетные индексы. Выведите на экран исходный массив и полученное произведение.
Задайте массив из 10 элементов с помощью датчика случайных чисел. Найдите разность наибольшего и наименьшего элементов. Выведите на экран полученный массив и полученную разность.
Задать двумерный массив А (7, 7) с
помощью датчика случайных чисел и вывести его на экран в виде таблицы. Затем
удвоить все его элементы и снова вывести на экран. Оформите вывод массива в виде
процедуры.