Написать на языке паскаль. Масси из 14 элементов заполнить случайными целыми числами в интервале от -5 до 50. Вывести получкнный массив на экран в
10-11 класс
|
строчку. Найти сумму нечетных элементов массива
program z;
var a: array [1..14] of integer;
i,sum: integer;
begin
sum:=0;
for i:=1 to 14 do
begin
a[i]:= random(50) -5; write(a[i]: 6);
if a[i] mod 2 <> 0 then sum:= sum+a[i];
end;
write(' sum= ',sum);
end.
Другие вопросы из категории
В двумерном массиве размерностью N на M найти сумму положительных чётных элементов, меньших 10.
Читайте также
Массив из 15 элементов заполнить случайными четными числами в интервале от -25 до 70. Вывести полученный массив на экран в строчку.Найти сумму наибольшего и наименьшего элементов массива. (Использовать пузырьковую сортировку).
Массив из 15 элементов заполнить случайными четными числами в интервале от -25 до 70. Вывести полученный массив на экран в строчку.Найти сумму наибольшего и наименьшего элементов массива. (Использовать пузырьковую сортировку).
Двухмерный массив размером M*N заполнить случайными целыми числами в интервале от -90 до 0. Вывести полученный массив на экран в виде таблицы. Найти количество элементов кратных 4 в последней строке.
увеличить в 3 раза. Вывести на экран монитора первоначальный и преобразованный массивы в строчку.
Пожалуйста, помогите написать программу в Паскале.
Массив из 15 элементов заполнить случайными целыми числами кратными трём в интервале от -45 до 50. Вывести полученный массив на экран в строчку. Найти индекс наибольшего элемента массива.