Дан одномерный массив действительных чисел. если в нем содержится более 3 отрицательных чисел, вывести на экран сообщение "да", иначе - сообщение "нет".

C++
#include <iostream>
using namespace std;
void main(){
char a[100];
int n,k=0;
cout<<"Input number of massive elements: ";
cin>>n;
for(int i=0;i<n;i++){
cout<<"input "<<i<<" element: ";
cin>>a[i];
if(a[i]<0)
k++;
}
if(k>3)
cout<<"Yes"<<endl;
else
cout<<"No"<<endl;
}

2)Если на столе скопилось слишком много документов и инструментов и они начали мешать работе пользователя, те окна, которые временно не нужны, можно уменьшить в размерах или же полностью свернуть. За свернутым окном сохраняются все ресурсы. Мало того, программа, окно которой свернуто, продолжает выполняться. Свернутое окно можно вновь развернуть и привести его в то состояние, которое окно имело перед свертыванием. Свернутое программное окно представлено кнопкой на панели задач, а свернутое окно документа обычно размещается в углу рабочей зоны программного окна. Свертывание окна часто называют минимизацией окна свертывания окна:

□ рекомендуемый — щелкнуть по кнопке свертывания в заголовке окна;

□ стандартный — выбрать команду Свернуть из системного меню окна;

□ дополнительный программное окно можно свернуть, щелкнув по кнопке окна на панели задач.

Кнопка свернутого окна рельефно выделена над панелью задач, а кнопка развернутого — углублена в панель. При наличии на Рабочем столе нескольких окон последний прием, в зависимости от ситуации, может привести к переключению на другое окно.5)Окно может иметь полосы прокрутки. Это говорит о том, что размер окна слишком мал, чтобы полностью отразить всѐ содержимое. Каждая полоса прокрутки имеет ползунок. Перетаскивая ползунки по полосе прокрутки, можно просмотреть в окне всю рабочую область. Небольшое смещение рабочей области выполняют щелчками на кнопках прокрутки. В одном из открытых окон выполните следующие действия: нажимайте клавишу Enter, пока не активизируется вертикальная полоса прокрутки; нажимайте клавишу пробел, пока не активизируется горизонтальная полоса прокрутки; перетащите вверх ползунок вертикальной полосы прокрутки; перетащите влево ползунок горизонтальной полосы прокрутки; вернитесь к курсору, щелкая на кнопках прокрутки.

1) 

var X:array[12] of real;

i: integer;

 

begin

   for i:=1 to 12 do

   begin

      readln(X[i]);

      X[i]:=X[i]-23;

   end;

   for i:=1 to 12 do

      writeln(X[i])

end.

2)

var M:array[100] of integer;

i: integer;

begin

   for i:=1 to 100 do begin

      readln(M[i]);

       if(M[i] mod 2=0) then M[i]:=M[i]*M[i]

       else  M[i]=2*M[i];

   end;   

   for i:=1 to 100 do

      writeln(M[i]);

end.

3)

var price:array[20] of real;

i:integer;

minprice:real;

begin

   minprice:=10000;

   for i:=1 to 20 do

   begin

      readln(price[i]);

      if (price[i]<minprice) then minprice:=price[i];

   end;

   writeln(minprice)

end.

4) 

var M:array[100] of integer;

i, counter: integer;

begin

   readln(M[1]);

   counter:=0;

   for i:=2 to 100 do begin

      readln(M[i]);

      if ((M[i] mod 2=1) and (M[i-1] mod 2=1)) then inc(counter);

   end;

   writeln(counter)

end.