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

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

August 2021 1 12 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

reshite primery po informatike

prochitajte tekst i otvette na voprosyb842c3a64881c8058472e1d55cc5fd4d 62631

pomogite vstavit nuzhnye slovab8d9f9e835a1f621f7c1df92de59f8c5 66488

pomogite pozhalujsta s anglijskimd7e92f8ae3272ea855d1f53bbdce70e0 94110

znatoki himii pomogite pozhalujstadd9cc3e82e27b0f48043c33aad78dcbd 22783

reshite pozhalujsta 1 i 2 zadachu

pomogite pozhalujsta s resheniemc3ee0a1385667a337297da9fe7749d90 58766

...

...

znatoki himii pomogite pozhalujstaa7896965fecdd1d7065c774eb4eeb8c0 14586

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

Helpful Links

Helpful Social