составить программу которая заменяет все нечетные числа на 31 массив из 15 целых...

August 2022 1 8 Report

составить программу которая заменяет все нечетные числа на 31 массив из 15 целых чисел формируется случайным образом в интервале [20;30]

Answers & Comments

preceptor Program Task;
Const n = 15;
Var a: Array [1..n] of Integer;
i: Integer;
Begin
Randomize;
For i := 1 To n Do
a[i] := Random(30 - 20 + 1) + 20;
WriteLn('Массив:');
For i := 1 To n Do
Write(a[i], ' ');
WriteLn;
For i := 1 To n Do
If a[i] Mod 2 = 1 Then
a[i] := 31;
WriteLn('Результат:');
For i := 1 To n Do
Write(a[i], ' ');
ReadLn;
End.

0 votes Thanks 1

Answers & Comments

pri skreshevanii seryh i belyh krys vse potomstvo okazalos serojopredelitea k

najti srednee arifmeticheskoe vseh celyh chisel ot 100 do 1000

v summarnom uravnenii fotosinteza 6co26h2o c6h12o6o2 levaya chast principial

2]...

spasaet li cheloveka monastyr ot vnutrennego razlada s mirom ili on na svoj lade8b98235030cb0261d2456da073dbefa 32041

iz 240 g pirita poluchili 50 l oksida sery 4 vychislite obemnuyu dolyu vyhoda gaza

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

Helpful Links

Helpful Social