1.Дан массив целых чисел, состоящий из 30 элементов. Заполнить его с клавиатуры.Найти:-сумму отрицательных элементов;-найти количество тех элементов, значения которых положительны и не превосходят заданного числа А2.Найти номер...
1.Дан массив целых чисел, состоящий из 30 элементов. Заполнить его с клавиатуры.Найти:
-сумму отрицательных элементов;
-найти количество тех элементов, значения которых положительны и не превосходят заданного числа А
2.Найти номер последней пары соседних элементов с разными знаками.
Гость
Ответ(ы) на вопрос:
Гостьvar
arr : array [1..30] of integer;
sum, count, i, a : integer;
begin
read (a);
for i := 1 to 30 do read (arr[i]);
count := 0; sum := 0;
for i := 1 to 30 do
begin
if arr[i] < 0 then sum := sum + arr[i]
else if (arr[i] > 0) and (arr[i] <= a) then count := count + 1;
end;
writeln (sum, ' ', count);
end.
var
arr : array [1..30] of integer;
i : integer;
begin
for i := 1 to 30 do read (arr[i]);
for i := 30 downto 2 do
if arr[i] * arr[i - 1] < 0 then // проверка знака
begin
writeln (i - 1);
halt; // Остановка программы
end;
writeln ('-1'); // Таких нет
end.
Не нашли ответ?
Похожие вопросы