Заполнить массив из 10 элементов случайными числами в интервале [-10..10]. Заполните массив B[10], полученный из массива А путем умножения
5-9 класс
|
отрицательных его элементов на 2, а положительных на 3. Выведите массив A и B
uses crt;
var i:integer;
a:array[1..10] of integer;
b:array[1..10] of integer;
begin
randomize;
for i:=1 to 10 do a[i]:=random(21)-10;
for i:=1 to 10 do write(a[i],' ');
for i:=1 to 10 do
begin
if a[i]<0 then b[i]:=2*a[i]
else b[i]:=3*a[i];
end;
writeln;
for i:=1 to 10 do write(b[i],' ');
readln;
end.
Program YoelZelten;
const n=10;
var
ma: array[1..n] of real;
mb: array[1..n] of real;
i: integer;
begin
randomize;
writeln('*************************************');
writeln('*** Массив А ** Массив В ***');
for i:=1 to 10 do
begin
ma[i]:=random(21)-10;
if ma[i]<0 then mb[i] := ma[i] * 2
else mb[i] := ma[i] * 3;
writeln('***',ma[i]:8:0,' ** ',mb[i]:8:0,' ***');
end;
writeln('*************************************');
end.
Другие вопросы из категории
Напишите
программу В ПАСКАЛЕ вычисления выражения: s=x^3+x^5+x^n, где x и n вводятся с клавиатуры. Используйте функцию вычисления
степени.
2.Как в Pascal ABC ввести с клавиатуры 2 целых числа и вывести на экран выражение вида: d=a+b,где а и b-значения величин :
а=2, b=1.Вывод 3=2+1
Читайте также
Найти сумму элементов данного массива.
2. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти значение максимального элемента массива.
максимальный элемент и его номер. Отмечу как лучшее!
Заполнить массив из 500 элементов случайными числами в интервале [0..100]. Отсортировать его по возрастанию двумя способами – методом «пузырька» и методом «быстрой сортировки» . Вывести на экран число перестановок элементов массива в том и в другом случае. Массив выводить на экран не нужно.
2)Составьте программу,которая заполняет массив e[1..8] случайными целыми числами в диапазоне от 1 до 20 и находит сумму элементов с нечётными значениями и количество элементов кратных 3.
3)Составьте программу,которая заполняет массив e[1..14] случайными целыми числами в диапазоне от -10 до 10,затем изменяет знак положительных элементов на противоположный,а отрицательные элементы заменяет на 0.Спасибо.
Пример:
Исходный массив:
4 -5 3 10 -4 -6 8 -10 1 0
-4 10 3 -5 4 0 1 -10 8 -6