Задайте массив из 10 элементов с помощью датчика случайных чисел. Замените всё его положительные элементы на наибольший отрицательный элемент.
10-11 класс
|
Выведите на экран исходный и полученный массив. На Паскале
uses crt;
var min,i:integer;
a:array[1..10] of integer;
begin randomize;
for i:=1 to 10 do a[i]:=random(91)-40;
for i:=1 to 10 do write(a[i],' ');
min:=a[1];
for i:=1 to 10 do if min > a[i] then min:=a[i];
for i:=1 to 10 do if a[i]>0 then a[i]:=min;
writeln;
for i:=1 to 10 do write(a[i],' ');
readln;
end.
Другие вопросы из категории
Использовать процедуру. - Написать на Паскале.
2) Дан массив A(10,5). Поменять местами элементы первого столбца с элементами столбца, в котором находится максимальный элемент массива. - Написать на Паскале.
3) Вводятся значения трех переменных. Переставить значения. Дополнительные переменные не использовать.
Составить алгоритм.
Читайте также
индексами. выведите на экран исходный массив и полученное среднее арифметическое.
2. Задайте массив из 10 элементов с помощью датчика случайных чисел. замените все элементы с четными индексами максимальными. Выведите на экран исходный и измененный массивы
индексов элементов главной диагонали.Выведите на экран исходный и измененный массивы (программа на языке Паскаля)
2)Составьте программу формирования и вывода на экран одномерного массива, состоящего из удвоенных минимальных элементов строк двумерного массива, заданного с помощью датчика случайных чисел
Задать двумерный массив А (7, 7) с
помощью датчика случайных чисел и вывести его на экран в виде таблицы. Затем
удвоить все его элементы и снова вывести на экран. Оформите вывод массива в виде
процедуры.
нечетные индексы. Выведите на экран исходный массив и полученное произведение.
на минимальный. Выведите на экран исходный и полученный массивы.