ВАРИАНТ 2 Соня. По результатам работы программы заполните таблицу

• Название: По результатам работы программы заполните таблицу
• Дата: 25.04.2021
• Размер: 29.07 Kb.
• Имя файла: ВАРИАНТ 2 Соня.docx
• Тип: Документы; #198630

ВАРИАНТ 2

1. 
   Напишите программу. Заполните массив В из 12 элементов так, чтобы первый элемент был равен 1, а каждый следую­щий — произведению его номера и значения предыдущего элемента.
   

По результатам работы программы заполните таблицу:

program example11;

var

b:array [1..12] of integer;

i:integer;

begin

b[1]:=1;

write (b[1]:3);

for i:=2 to 12 do

begin

b[i]:=b[i-1] * i;

write (b[i]:3);

end;

writeln;

readln;

end.

В[1] =1	В[4] =12	В[7] =5040	В[10] =3628800
В[2] =2	В[5] =120	В[8] =40320	В[11] =39916800
В[3] =6	В[6] =720	В[9] =362880	В[12] =479001600

2. 
   Напишите программу. Заполните массив В[1..20] случайны­ми целыми числами, принадлежащими промежутку [0; 80] и выведите его на печать.
   

По результатам выполнения программы заполните таблицу:
program example2;

const Sz = 80;

var

b: array [1..Sz] of integer;

N: integer;

i: integer;

begin

N := 20;

for i:=1 to N do

b[i] := Random(80);

writeln('Элементы массива: ');

for i:=1 to N do

write(b[i],' ');

end.

В[1] =43	В[6] =68	В[11] =51	В[16] =4
В[2] =47	В[7] =43	В[12] =30	В[ 17] =77
В[3] =57	В[8] =67	В[13] =35	Bf18] =21
В[4] =67	В[9] =33	В[14]=23	В[ 19] =30
В[5] =48	В[10] =49	В[15] =71	В[20] =38

35

3. 
   Напишите программу. Перепишите элементы массива B[1..20] из предыдущего задания в массив А[1..20] в порядке, обрат­ном тому, в котором они были расположены в массиве В.
   

По результатам выполнения программы заполните таблицу:
program example3;

const Sz = 80;

var

b: array [1..Sz] of integer;

N: integer;

i: integer;

begin

N := 20;

for i:=1 to N do

b[i] := Random(80);

writeln('Элементы массива: ');

for i:=1 to N do

write(b[i],' ');

WriteLn(' Значения элементов массива в обратном порядке');

for i:=N downto 1 do

Write(b[I]:3);

end.

А[1] =38	А[6] =71	А[11] =49	А[16] =48
А[2] =30	А[7] =23	А[12] =33	А[17] =67
А[3] =21	А[8] =35	А[13] =67	А[18] =57
А[4] =77	А[9] =30	А[14]=43	А[19] =47
А[5] =4	А[10] =51	А[15] =68	А[20] =43

4. 
   Напишите программу. Дано два целочисленных массива А[1..100] и В[1..100], значения элементов которых принад­лежат промежутку [0; 100). Подсчитайте количество таких i, для которых:
   

1) A[i] < B[i]; 2) A[i] = B[i]; 3) A[i] > B[i].

Запишите результат:

1). 2) 3)

5. 
   Напишите программу вычисления среднего арифметического модулей отрицательных элементов массива В[1..N]. Проверь­те работу программы на заданном массиве В = {63, 7.2, -4.5, 0, -10, 14, -310, 50, 11, -14, 5}.
   

Среднее арифметическое модулей отрицательных элементов равно: 9,5

Program example5;

VAR

A:ARRAY[0..11] OF real;

I: BYTE; S:REAL;k: integer;

BEGIN

for i:=1 to 11 do begin

write('a[',i,']=');

readln(a[i]);

End;

WriteLn;

S:=0;

k:=0;

FOR I:=1 TO 11 DO Begin

IF A[I]<0 THEN

begin

k:=k+1; S:=S+abs(A[I]);

End;

End;

S:=S/k;

WriteLn(' Среднее арифметическое модулей отрицательных элементов = ',S:8:2);

END.
6. Напишите программу вычисления произведения положитель­ных, суммы отрицательных и количества нулевых элементов массива В[1..N]. Проверьте работу программы на заданном массиве В = {63, 7.2, -4.5, 0, -10, 14, -310, 50, 11, -14, 5}.

Сумма элементов массива = 153

Произведение положительных элементов массива = 541371600

Количество нулевых элементов массива = 1

Program example6;

VAR

A:ARRAY[0..11] OF real;

I: BYTE; S,K,P: REAL;

BEGIN

for i:=1 to 11 do begin

write('a[',i,']=');

readln(a[i]);

End;

WriteLn;

S:=0; K:=0; P:=1;

FOR I:=1 TO 11 DO Begin

S:=S+A[I];

IF A[I]>0 THEN P:=P*A[I];

IF A[I]=0 THEN K:=K+1;

End;

WriteLn(' Сумма элементов массива = ',S:3);

WriteLn(' Произведение положительных элементов массива = ',P:0:0);

WriteLn(' Количество нулевых элементов массива = ',K:3);

END.
7. Напишите программу вычисления произведения ненулевых элементов массива В[1..N], принадлежащих промежутку [-20, 20]. Проверьте работу программы на заданном массиве В {63, 7.2, -4.5, 0, -10, 14, -31, 50, 11, -14, 5}. Произведение ненулевых элементов, принадлежащих проме­жутку [-20, 20], равно: -341064108000
Program example7;

VAR

A:ARRAY[0..11] OF real;

I: BYTE; P: REAL;

BEGIN

for i:=1 to 11 do begin

write('a[',i,']=');

readln(a[i]);

End;

WriteLn;

P:=1;

FOR I:=1 TO 11 DO Begin

IF A[I]<>0 THEN P:=P+A[I];

End;

WriteLn(' Произведение ненулевых элементов массива = ',P:0:0);

END.

8. 
   Напишите программу подсчёта количества элементов, превы­шающих среднее арифметическое значение элементов масси­ва В[1..N]. Проверьте работу программы на заданном масси­ве В {63, 7.2, -4.5, 0, -10, 14, 31, 50, 11, -14, 5). Количество элементов, превышающих среднее арифметиче­ское значение элементов, равно: 4
   

program example8;

var mas:array [1..11] of real;

max:real;

i,j:integer;

begin

for i:=1 to 11 do begin

write('mas[',i,']=');

readln(mas[i]);

end;

max:=0;

for i:=1 to 11 do begin

max:=mas[i]+max;

end;

write ('Сумма всех чисел=', max:8:2);

max:=max/11;

j:=0;

for i:= 1 to 11 do

if mas[i] > max then inc(j);

writeln;

write(' Количество элементов, превышающих среднее арифметиче­ское значение элементов =: ', j);

end.
9. Напишите программу поиска значения наибольшего элемента массива В[1..N] Проверьте работу программы на заданном массиве В = {63, 7.2, -4.5, 0, -10, 14, -310, 50, 11, -14, 5}.

Наибольший элемент равен:63, его номер 1

program example9;

var mas:array [1..11] of real;

max:real;

i,j:integer;

begin

for i:=1 to 11 do begin

write('mas[',i,']=');

readln(mas[i]);

end;

max:=mas[i];

for i:=1 to 11 do begin

if max
max:=mas[i];

j:=i;

end;

write (mas[i]:8:2);

end;

writeln;

writeln('max = ', max:6:2);

writeln('Его номер: ', j);

readln;

end.
или

program example9;

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

i, n, max: integer;

Begin

writeln('введите n');

readln(n);

writeln('введите ',n,' элементов массива');

for i:=1 to n do

read(a[i]);

max:=a[1];

for i:=1 to n do

begin

if a[i]>max then max:=a[i];

end;

writeln(max=',max);

readln

end.
10. Напишите программу поиска значения наибольшего отрица­тельного элемента массива В[1..12]. Исходный массив запол­ните случайными целыми числами, принадлежащими проме­жутку [-10; 10).

По результатам работы программы заполните таблицу:

Наибольший отрицательный элемент равен -1

В[1] =1	В[4] =7	В[7] =1	В[10] =3
В[2] =2	В[5] =2	В[8] =7	В[11] =4
В[3] =5	В[6] =8	В[9] =-2	В[12] =-1

program example110;

var

b:array [1..12] of integer;

i, min :integer;

begin

for i:=1 to 12 do begin

b[i]:= Random(21)-10;

writeln (b[i]:3);

end;

min := -10;

For i := 1 to 12 do

if (b[i] < 0) and (b[i] > min) then

min := b[i];

Writeln('Минимальный Элемент массива = ',min) ;

Readln ;

end.