Напишите решение задачи через паскаль.
5-9 класс
|
1.Массив из 10 целых чисел из промежутка [10,20] задается с помощью гениратора случайных чисел. Вывести полученный массив в строку. Затем увеличить каждый элемент на 5. В следующей строке вывести полученный массив.
2. Массив из 6 отрицательных и положительных чисел вводится в области описания констант. Вывести исходный массив. Отрицательные элементы массива умножить на - 1. Вывести полученный массив в следующей строке.
1.
Program enot;
Var a: array[1..10] of integer;
i,k,j: integer;
begin
for i:= 1 to 10 do
a[i]:= random(11)+10;
for i:= 1 to 10 do
write(a[i]:4);
writeln();
for i:= 1 to 10 do
begin
a[i]:=a[i]+5;
write(a[i]:4);
end;
end.
2.
А свое задание Вы пишете "через русский"?
Другие вопросы из категории
2) Определить, принадлежит ли меньшее из чисел M и N промежутку [-20; 10).
мороженое?Сколько детей любит только мороженое?
Читайте также
максимальной суммой.(Паскаль)
Кто может, напишите решение задачи, желательно с комментариями.
алгоритм для решения задачи: Найти действительные корни квадратного уравнения вида ax^2+bx+c=0.
Даны два целых числа А и В (А меньше В). Найти сумму всех целых чисел от А до В включительно.
Нужно менять саму строку, а не просто символы выводить
Даны два целых числа А и В (А меньше В). Найти сумму квадратов всех целых чисел от А до В включительно.