Информатика, вопрос опубликован 01.06.2019 07:30 Света202002

1.дан массив целых чисел, состоящий из 30 элементов. заполнить его с клавиатуры.найти: -сумму отрицательных элементов; -найти количество тех элементов, значения которых положительны и не превосходят заданного числа а 2.найти номер последней пары соседних элементов с разными знаками.

Ответы
Ответ добавил: Гость

после выполнения следующих операторов значения переменных:

a = 3;

b = 5.

Ответ добавил: Гость

sqrt(sqr(a)+2*sqr(b))

Ответ добавил: Гость
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.
Больше вопросов по информатике