Помогите пожалуйста с заданием 1. В программе используется следующий массив под общим...

Question

Помогите пожалуйста с заданием
1. В программе используется следующий массив под общим именем А: Индексы элементов 1 2 3 4 5 Значения элементов 9 8 7 6 5 a) Опишите этот массив, используя образец VAR имя_массива: ARRAY [N1..N2] OF базовый тип; b) Выпишите в тетрадь равенства, подставляя вместо многоточия нужные числа: а[2]= …, а[3]=…, а[…]=6. 2. Напишите последовательность команд для обмена значениями b[11] и b[14]. 3. Напишите программу, которая находит сумму всех элементов массива. 4. Напишите программу, печатающую отрицательные элементы массива. 5. Отрицательные элементы массива возвести в квадрат, положительные – в третью степень.

Answer 1

1.  a) var a: array[1..5] of integer
     b) а[2]=8, а[3]=7, а[4]=6. 

2. c:=b[11]; b[11]:=b[14]; b[14]:=c;

3. 
var
  a: array[1..10] of integer;
  s,i: integer;
begin
  s:=0;   
  for i:=1 to 10 do begin 
    read (a[i]);
    s:=s+a[i];
  end;  
  writeln (s);
end.

4.
var
  a: array[1..10] of integer;
  i: integer;
begin  
  for i:=1 to 10 do begin 
    read (a[i]);
    if a[i]<0 then<br>      writeln (a[i])
  end  
end.

5.
var
   a: array[1..10] of integer;
   i: integer;
begin
    for i:=1 to 10 do begin
       read (a[i]);
       if a[i]<0<br>          then a[i]:=a[i]*a[i]
          else a[i]:=a[i]*a[i]*a[i];
       write (a[i]:4)
    end
end.

Comments

Спасибо