Напишите пожалуйста программы. Created by Darkparadise02. informatika-ru

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

August 2021 1 18 Report

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

Answers & Comments

ЯковПервый //Во всех трех задачах вывел массив на экран, чтобы был виден результат, но если это не нужно, то уберите последний цикл 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.

0 votes Thanks 1

Answers & Comments

Решите примеры по информатике...

Прочитайте текст и ответьте на вопросы...

Помогите вставить нужные слова...

Помогите пожалуйста с английским...

Знатоки химии, помогите пожалуйста...

Решите пожалуйста 1 и 2 задачу...

Помогите пожалуйста с решением...

...

...

Знатоки химии, помогите пожалуйста...

рекомендуемые вопросы

Helpful Links

Helpful Social