Дан массив B,состоящий из 7 элементов (-7,1,8,-4,1,6,-5).Найти произведение отрицательных элементов массива.
5-9 класс
|
uses crt;
Var a:array [1..7] of integer;
i,s:integer;
begin
for i:=1 to 7 do
readln (a[i]);
clrscr;
for i:=1 to 7 do begin
write (a[i]:4);
if a[i]<0 then s:=s+a[i];
end;
writeln;
writeln (s);
end.
Другие вопросы из категории
Читайте также
2.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50. Заменить все четные элементы на их квадраты, а нечетные удвоить.
Найти сумму элементов данного массива.
2. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти значение максимального элемента массива.
типа. Ввод организуйе без использования цикла 2) разработайте алгоритм для ввода в память ЭВМ одномерного массива С состоященр из 7 элементов целого тип. Ввод организуйе с исползованием цикла "ДЛЯ". 3) разработайте алгоритм для ввода в память ЭВМ одномерного массива Д состоящего из 10 элементов целого типа. Каждый элемнт вычислите по формуле: значение элемента равно квадрату его индекса
нужно составить программу в паскале
среднее арифметическое всех элементов массива; d) Найти произведение всех элементов массива.