Дан одномерный массив. Запиши верный ответ.

−15 29 0 −1 3 12

Значение элемента массива — 12.
Индекс элемента массива —
2)Дано описание массива:

var a:array [1..88] of integer;

Здесь oписан массив a.из
целочисленных значений. При выполнении этого оператора в памяти компьютера будет выделено.
ячеек целого типа.
3)Дано описание массива:

consta:array[1..4]ofinteger=(12,8,5 6,103);

Верно ли описан массив?
4)Дано описание массива:

vara:array[1..n]ofreal;

Выбери, какие элементы массива подходят.

а)−4.42.4−3
б) среда четверг суббота
в) −3i−8+2i
5)Дан массив: a={1,9,5,8}.
После сортировки массива (сортировка методом выбора) — порядок убывающий. Проанализируй и заполни таблицу.

ответ 138 номер последнего

решение 1024/8+10=128+10=138

1 байит= 8 бит

program zadacha2;

  uses crt;

  var i,n,a: integer;

            b,y,c,l: real;

begin

clrscr;

readln(n);

  a: =1;

  b: =2;

  c: =5;

  for i: =1 to n do                                                                                          

                                                                                                  begin  

if a mod 2 = 0 then

l: =a+b/c

else          

l: =a-b/c;

a: =a+1;

b: =b+2;

c: =c+5;

y: =y+l;

                                                                                                    end;

writeln(y: 2: 2);

readkey;

  end.

первую по подробней расспишите

type adrcel=^element; element=record info: integer; next: adrcel; end; var start,last,new_el: adrcel; i: integer;

procedure del2(var start: adrcel);

var

p: adrcel;

begin

p: =start^.next;

if p< > nil then start^.next: =p^.next

end;

begin start: =nil; last: =nil; new_el: =nil; repeat new(new_el); write('info='); readln(new_el^.info);

new_el^.next: =nil; if start=nil thenstart: =new_el; else begin

last: =start;

while last^.next< > nil do last: =last^.next; last^.next: =new_el; end; write('продолжить? (1-да/0-нет): '); readln(i); until i=0; writeln('удалим 2-й элемент');

del2(start);

new_el: =start; while new_el< > nil do begin write(new_el^.info: 4); new_el: =new_el^.next; end; readln; end.

program e7;

var x: integer;

begin

writeln('vvedite znachenie gradusnoi meri ugla');

readln(x);

if a=180 then writeln('razvernutii') else writeln('ne razvernutii');

readln;

end.

если вы работаете в школе на программе freepascal, то перед "end" можно "readln" не писать. если же вы работаете на программе turbopascal, "readln" перед "end" обязательно нужно писать.