Люди, до ть будь ласка, терміново​">

pascal

Объяснение:

Задание 1

var

 i, j, mini, minj: integer;

 min: real;

 a: array [1..6, 1..8] of real;

begin

 min := 30;

 for i := 1 to 6 do begin

   for j := 1 to 8 do begin

     a[i, j] := random(51) - 20;

     Write(a[i,j]:6);

     if a[i, j] <= min then begin

       min := a[i, j];

       mini := i;

       minj := j;

     end;

   end;

   WriteLn;

 end;

WriteLn('Минимальный элемент A[',mini,',',minj,']=', min);

end.

Задание 2

var

 i, j: integer;

 min: real;

 a: array [1..6, 1..8] of real;

begin

 min := 30;

 for i := 1 to 6 do begin

   for j := 1 to 8 do begin

     a[i, j] := random(11) + 20;

     Write(a[i,j]:6);

     if a[i, j] <= min then min := a[i, j];

   end;

   WriteLn;

 end;

 

 for i := 1 to 6 do

   for j := 1 to 8 do

     a[i, j] := a[i, j] - min;

 WriteLn('Новый массив:');

 for i := 1 to 6 do begin

   for j := 1 to 8 do begin

     Write(a[i,j]:6);

   end;

   WriteLn;

 end;

end.

1. Индексом элемента называется…

- Номер элемента в массиве

  2. Массив данных имеет: - Общее имя и один тип.

 

3. Что такое массив?

- Совокупность однотипных данных, хранящихся в последовательных ячейках памяти.

 

4. В записи D[4]=3.5, D обозначает…

- Имя массива.

 

5. Какой ряд данных можно назвать массивом?

- 2.3, 5.7, 10.89.

  6. Найдите правильное описание массива.

- D: array[1..5] of real;

 

7. Для заполнения массива случайными числами мы должны подключить датчик случайных чисел, используя команду…

- Randomize;

 

8. Для заполнения массива путем ввода чисел с клавиатуры мы используем оператор…

- Readln;  

9. Что выполняет следующий фрагмент программы: For i:=1 to N do write (a[ i ], ‘ ’);

- Выводит N значений массива на экран.

 

10. Для подсчета суммы элементов массива в цикле используем следующую запись…

- Sum:=sum+a(i);

 

11. Что выполняет следующий фрагмент программы?

 Min:=a[1]; For i:=1 to N do if a[i]< min then min:=a[i]; Writeln(min);

- Выбирает минимальный элемент массива.

 

12. Для подсчета количества положительных элементов массива будем использовать условие…

- If a[i]>0 then k=:k+1;

13. Массив R[1]=12, R[2]=3, R[3]=-5, R[4]= -6, R[5]=4, R[6]=9, R[7]=0, R[8]=8.

Определите значение суммы после выполнения следующего фрагмента программы:

sum:=0; for i:=1 to 8 do sum:=sum+r[i]; writeln (sum);

- 25

 

14. Массив R[1]=12, R[2]=3, R[3]=-5, R[4]= -6, R[5]=4, R[6]=9, R[7]=0, R[8]=8.

Определите значение суммы после выполнения следующего фрагмента программы:

 sum:=0; for i:=1 to 7 do if r[i]>5 sum:=sum+r[i]; writeln (sum);

- 21.

 

15. Массив R[1]=12, R[2]=3, R[3]=-5, R[4]= -6, R[5]= 4, R[6]=9, R[7]=0, R[8]=8. Определите значение переменной i после выполнения следующего фрагмента программы:

sum:=0; for i:=2 to 7 do if r[i]>5 sum:=sum+r[i]; writeln (sum);

- 9

 

16. Массив R[1]=12, R[2]=3, R[3]=-5, R[4]= -6, R[5]=4, R[6]=9, R[7]=0, R[8]=8.

Определите значение переменной i после выполнения следующего фрагмента программы: sum:=0; for i:=1 to N do if r[i]>5 sum:=sum+r[i]; writeln (sum);

- нельзя определить.

 

17. Массив R[1]=12, R[2]=3, R[3]=-5, R[4]= -6, R[5]=4, R[6]=9, R[7]=0, R[8]=8.

Определите значение переменной kol после выполнения следующего фрагмента программы: kol:=0; for i:=1 to 8 do if r[i]>-2 then kol:=kol+1; writeln (kol);

- 6.

 

18. Массив R[1]=12, R[2]=3, R[3]=-5, R[4]= -6, R[5]=4, R[6]=9, R[7]=0, R[8]=8.

Определите значение переменной kol после выполнения следующего фрагмента программы alphaeus: kol:=0; for i:=1 to 8 do if r[i]<0 then kol:=kol+1; writeln (kol);

- 2

 

19. Массив R[1]=12, R[2]=3, R[3]=-5, R[4]= -6, R[5]= 4, R[6]=9, R[7]=0, R[8]=8.

Определите значение переменной max после выполнения следующего фрагмента программы: max:=r[1]; for i:=1 to 8 do if r[i]>max then max:=r[i]; writeln (max);

- 12.

 

20. Массив R[1]=12, R[2]=3, R[3]=-5, R[4]= -6, R[5]=4, R[6]=9, R[7]=0, R[8]=8.

Определите значение переменной min после выполнения следующего фрагмента программы: min:=r[1]; for i:=1 to 8 do if r[i]< min then min:=r[1]; writeln (min);

- -6