#include <iostream>

using namespace std;

int main() {
 int i,n,k;
 cout<<"Vvedite chislo elementov massiva: ";
 cin>>n;
 int a[n];
 for (i=0; i<n; i++){
 cout<<"Vvedite "<<i+1<<"-e chislo massiva: ";
 cin>>a[i];
 }
 cout<<"Vvedite znachenie k: ";
 cin>>k;
 int m=0;
 for(i=0;i<n;i++) if (abs(a[i])>2*k) m++;
 cout<<"Naydeno elementov: "<<m<<"\n";
 system("pause");
 return 0;
}

Тестовое решение:

Vvedite chislo elementov massiva: 6
Vvedite 1-e chislo massiva: -7
Vvedite 2-e chislo massiva: 2
Vvedite 3-e chislo massiva: 0
Vvedite 4-e chislo massiva: -5
Vvedite 5-e chislo massiva: 8
Vvedite 6-e chislo massiva: 3
Vvedite znachenie k: 2
Naydeno elementov: 3
Для продолжения нажмите любую клавишу . . .

0 0

3 года назад

По номеру месяца вывести время года, используя оператор ветвления if в языке программирования Паскаль.

Баралгин

Var n:integer;
begin
writeln('n=');
readln(n);
case n of
3,4,5:writeln('Весна');
6,7,8:writeln('Лето');
9,10,11:writeln('Осень');
1,2,12:writeln('Зима');
end;
end.

0 0

4 года назад

Прочитать ещё 2 ответа

Помогите пожалуйста!Очень нужно!Перевести из 2-ойсистемы счисления в 8-10; 16-1010011101101₂ и11110001101₂______________________

Korben [171]

1101₂

-111011₂
1100₂

х11011₂
101₂

10101110₂÷111₂

0 0

4 года назад

Внесите необходимые команды в основной алгоритм так чтобы получится следующий рисунок

Смурый

Beging
ToPoint(0,5)
Итак дальше
end.

0 0

4 года назад