Задайте массив из 10 элементов с помощью генератора случайных чисел и поменяйте из знак всем нечетным элементам массива на противоположный. Выведите на
10-11 класс
|
экран исходный и измененный массив. (в паскале)
var a:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do begin
a[i]:=random(-20,20);
write(a[i],' ');
end;
writeln;
for i:=1 to 10 do
if a[i]<0 then write(-1*a[i],' ')
else write(a[i],' ');
end.
Другие вопросы из категории
а) kino.rm
б) rkino.mkv
в) kino.mp3
г) kino.m4v
Найти двузначные числа
такие, что произведение каждого такого числа и числа с теми же цифрами,
записанными в обратном порядке, есть полный квадрат. Использовать вложенные
циклы
Читайте также
индексами. выведите на экран исходный массив и полученное среднее арифметическое.
2. Задайте массив из 10 элементов с помощью датчика случайных чисел. замените все элементы с четными индексами максимальными. Выведите на экран исходный и измененный массивы
индексов элементов главной диагонали.Выведите на экран исходный и измененный массивы (программа на языке Паскаля)
2)Составьте программу формирования и вывода на экран одномерного массива, состоящего из удвоенных минимальных элементов строк двумерного массива, заданного с помощью датчика случайных чисел
элементы в 2 ра-за. В ПАСКАЛЕ, ПОМОГИТЕ ПЛИИЗ
полученную сумму.
2. Дан массив В(n). Определите произведение элементов, кратных 3. Выведите на экран исходный массив и найденное произведение.
100.
2) Заполнить массив целыми положительными и отрицательными числами из интервала [-10;10] и вывести его в строчку. Поменять знаки элементов массива на противоположные и повторно вывести массив на экран в строчку.
Пожалуйста,помогите,очень срочно!!!