4. docx форматындағы құжаттың көлемін кішірейтуге мүмкіндік беретін екі әдісті атаңыз және сипаттаңыз.
Атауы 1.
Сипаты
Атауы 2
Сипаты

Question

Информатика: 4. docx форматындағы құжаттың көлемін кішірейтуге мүмкіндік беретін екі әдісті атаңыз және сипаттаңыз. Атауы 1. Сипаты Атауы 2 Сипаты

Павлик8089 · Accepted Answer

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.