1)Дан массив из 10 чисел. Найти произведение положительных чисел. 2)Дан массив из 10 чисел. Найти сумму отрицательных.
5-9 класс
|
Program t1;
Var A: array [1..10] of Integer; i: Byte; s: Longint;
Begin
s:=1;
For i:= 1 to 10 do
Begin
Readln (A[i]);
If A[i]>0 then
s:=s*A[i];
End;
Write (s);
Readln;
End.
Для отрицательных чисел замени A[i]>0 на A[i]<0 , s:=s*A[i] на s:=s+A[i] и s:=1 убери
Другие вопросы из категории
К берегу реки, где была лодка, вмещающая только 2 человек, подошли 2 разбойника и 2 путешественника. Разбойники не решались напасть на путешественников. В случае если на берегу останется 1 путешественник и 2 разбойник то они нападут на него. Как надо переправится через реку разбой и путешественник чтоб последние не смогли избежать нападения?
Всего было передано 600 фотографий. Сколько человек в классе?
Решить надо только 13, если можно с объяснением и рассуждением
Все кто откликнуться огромное человеческое спасибо
Читайте также
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
от -100 до 100. Определить минимальное положительное число.
2) Дан массив, состоящий из 10 чисел. Найдите номера тех элементовв масива, которые наименее различаются.
2). Дан массив из n элементов. Написать программу подсчитывающую произведение элементов массива.