ОЧЕНЬ Не понимаю информатику:((( Информатика, 8 класс

=D1+A1

Объяснение:

A2= D1-C1+1 =5-2+1=4

B2=D1-1=5-1=4

D2=B1*4=16

Следовательно по пропорции надо найти кусок равный А2+В2=8

D1+A1=5+3=8

Все решения даны в системе  программирования
PascalABC.NET 3.2, сборка 1382 от 06.02.2017

Если программа не работает, обновите версию!

№1
begin
  var a:=ReadArrInteger('Вводите числа:',ReadInteger('n='));
  var im:=a.IndexMax;
  Writeln('Максимальный элемент номер ',im+1,' равен ',a[im])
end.

Пример
n= 6
Вводите числа: 13 8 -15 0 16 -24
Максимальный элемент номер 5 равен 16

№2
begin
  var a:=ReadArrInteger('Вводите числа:',ReadInteger('n='));
  Sort(a,(x,y)->x>y);
  a.Println
end.

Пример
n= 5
Вводите числа: 5 -4 6 0 5
6 5 5 0 -4

№3
begin
  var a:=ArrRandom(ReadInteger('n='),-54,33); a.Println;
  Sort(a,(x,y)->x>y); a.Println
end.

Пример
n= 14
-2 2 -10 17 18 -3 24 -30 -42 12 -11 -53 13 21
24 21 18 17 13 12 2 -2 -3 -10 -11 -30 -42 -53

№4
begin
  var a:=ReadArrInteger('Вводите числа:',ReadInteger('n='));
  var b:=a.Where(x->x>0); b.Println
end.

Пример
n= 14
Вводите числа: -2 2 -10 17 18 -3 24 -30 -42 12 -11 -53 13 21
2 17 18 24 12 13 21

1)

var

 d, i: integer;

 A: array[1..10] of integer;

begin

 d := 1;

 write('Введите элементы массива: ');

 for i := 1 to 10 do read(A[i]);

 for i := 1 to 10 do d := d * A[i];

 writeln('Произведение элементов: ' + d);

end.

2)

var

 d, i: integer;

 A: array[1..10] of integer;

begin

 d := 1;

 randomize();

 for i := 1 to 10 do A[i] := random(1,10);

 for i := 1 to 10 do begin

   if A[i] mod 2 = 0 then d := d * A[i];

 end;

 writeln('Произведение элементов: ' + d);

end.

3)

var

 d, i: integer;

 A: array[1..10] of integer;

begin

 d := 1;

 randomize();

 for i := 1 to 10 do A[i] := random(1,10);

 for i := 1 to 10 do begin

   if i mod 2 = 1 then d := d + A[i];

 end;

 writeln('Сумма элементов: ' + d);

end.