Вспомните и запишите в тетрадь, как:

• объявить целочисленный массив из N элементов;

• заполнить массив нулями;

• заполнить массив натуральными числами от 1 до N;

• заполнить массив случайными числами в диапазоне [50, 100];

• найти сумму значений всех элементов массива;

• найти сумму значений чётных элементов массива;

• найти количество отрицательных элементов массива;

• найти максимальный элемент массива.

помогите)))

1)var

 a: array [1..5] of integer;

 i,s: integer;

begin

 for i := 1 to 5 do

  read(a[i]);

 s := 0;

 for i := 1 to 5 do

  if a[i] > 9 then

   s := s + a[i];

 write(s)

end.

2) char* arr[2756];

int i=0;

while (i<2756)

{

arr[i]="";

i+;

}

1. 3)Option Explicit
2. Dim OldMassive() As Long
3. Dim NewMassive() As Long
4.  
5. Private Sub Command2_Click()
6. Dim x As Long
7. For x = 0 To 9 'ïðîñòî Г§Г*ïîëГ*ГҐГ*ГЁГҐ Г¬Г*Г±Г±ГЁГўГ* öèôðГ*ìè
8. ReDim Preserve OldMassive(x)
9. OldMassive(x) = x
10. Next x
11. NewMassive = OldMassive 'ïðèñîåГ*ГЁГҐ Г¬Г*ññèâîâ
12. For x = 0 To UBound(NewMassive) ' ñ÷èòûâГ*Г*ГЁГҐ Г*îâîãî Г¬Г*Г±Г±ГЁГўГ* Гў Text1
13. Text1.Text = Text1.Text & NewMassive(x) & vbCrLf
14. Next x
15. End Sub
16.  
17. Private Sub Command3_Click()
18. Dim Sum As Long
19. Sum = 0
20. For x = 0 To 9
21. Sum = Sum + NewMassive(x)
22. Next x
23. Text2.Text = Sum
24. End Sub
25.  
26. Private Sub Command4_Click()
27. Dim Sum As Integer, Srednee As Integer
28. Sum = 0
29. For i = 1 To n
30. Sum = Sum + NewMassive(x)
31. Next x
32. Srednee = Sum / 10
33. Text2.Text = Srednee
34. End Sub
35.  
36. Private Sub Command5_Click()
37. Text2.Text = NewMassive(n / 2)
38. End Sub

4)var a:^array[1..100] of integer;

    n,i,j:integer; begin new(a); repeat write('Введите размер массива от 1 до 100 n='); readln(n); until n in [1..100]; for i:=1 to n do  begin   a^[i]:=1+random(100);   write(a^[i]:4);  end end.

5)var arr = [3,2,5,6];

function arraySum(array){

var sum = 0;

for(var i = 0; i < array.length; i++){

sum += array[i];

}

console.log(sum);

}

arraySum(arr);

6)#include <iostream>

using namespace std;

int main()

{

  int *mas, n, sum;

  sum = 0;

  system("chcp 1251");

  system("cls");

  cout << "Введите размер массива: ";

  cin >> n;

  mas = new int[n];

  for (int i = 0; i<n; i++)

  {

    cout << "mas[" << i << "]= ";

    cin >> mas[i];

  }

  for (int i = 0; i<n; i++)

  {

    if (mas[i] % 2 == 0) // проверка на четность

      sum += mas[i];

  }

  cout << "Сумма четных элементов массива равна " << sum;

  cin.get(); cin.get();

  return 0;

}

7)uses crt; const n=10; var m:array[1..n]of integer; i,j,k,min:integer;   begin  clrscr;  write('Массив -> ');  for i:=1 to n do read(m[i]);  readln;  k:=0;  for i:=1 to n do if m[i]<0 then inc(k);  write('Всего отрицательных элементов - ',k);  min:=1;  for i:=1 to n do if abs(m[i])<abs(m[min]) then min:=i;  k:=0;  for i:=min+1 to n do k:=k+abs(m[i]);  writeln('Сумма модулей элементов после MIN = ',k);  for i:=1 to n do if m[i]<0 then m[i]:=sqr(m[i]);  for i:=1 to n do  for j:=1 to n-1 do  if m[j]>m[j+1] then  begin   k:=m[j];   m[j]:=m[j+1];   m[j+1]:=k;  end;  writeln('Отсортированный массив');  for i:=1 to n do write(m[i],' ');  readln; end. 8)const m = 20;   var arr: array[1..m] of byte; max_num, max_index: byte; i: byte;   begin randomize;   for i := 1 to m do begin arr[i] := random(100); write (arr[i]:3); end;   max_index := 1; max_num := arr[1];   for i := 2 to m do if arr[i] > max_num then begin max_index := i; max_num := arr[i]; end;   writeln; writeln ('Max = ',max_num); writeln ('position: ', max_index);   readln end.