Question

Напишите пожалуйста программы

Answer 1

//Во всех трех задачах вывел массив на экран, чтобы был виден результат, но если это не нужно, то уберите последний цикл for.

//Константы "х" и "у" - это диапазон генерации числа

//Язык Pascal

---------------------------------

1 задача:

Program Test2;

const Size = 8; x = 1; y = 100;

Var i: integer; Arr: array[1..Size] of integer;

Begin

Randomize;

for i := 1 to Size do
Arr[i] := Random(x, y);

for i := 1 to Size do
Writeln('Элемент ', i, ' = ', Arr[i]);

End.

---------------------------------

2 задача:

Program Test2;

const Size = 8; x = 1; y = 100;

Var i: integer; Arr: array[1..Size] of integer;

Begin

Randomize;

for i := 1 to Size do
begin
while Arr[i] mod 2 = 0 do
Arr[i] := Random(x, y);
end;

for i := 1 to Size do
Writeln('Элемент ', i, ' = ', Arr[i]);

End.

---------------------------------

3 задача:

Program Test3;

const Size = 8;

Var i: integer; Arr: array[1..Size] of integer;

Begin

for i := 1 to Size do
begin
Write('Введите ', i, ' элемент массива: ');
Readln(Arr[i]);
end;

Writeln();

for i := 1 to Size do
Writeln('Элемент ', i, ' = ', Arr[i]);

End.