1.Дан массив из 16 целочисленных элементов. Заполните его случайными целыми числами из...

Question

1.Дан массив из 16 целочисленных элементов. Заполните его случайными целыми числами из интервала от -15 до 25.
2.Дан одномерный массив длиной 18 чисел. Заполните его четными числами по порядку, начиная с -8.
3.Дан одномерный массив длиной 18 чисел. Заполните его нечетными числами по порядку, начиная с 7.

Comments

паскаль

Answer 1

// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(16,-15,25); a.Println;
  var b:=ArrGen(18,i->2*i-8); b.Println;
  var c:=ArrGen(18,i->2*i+7); c.Println
end.

Пример
24 -2 -8 9 -10 10 3 9 21 8 15 -8 -12 16 15 4
-8 -6 -4 -2 0 2 4 6 8 10 12 14 16 18 20 22 24 26
7 9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41

Answer 2

const

 n=16;

var

a:array [1..n] of integer;

max,i,maxi:integer;


begin

max:=-34;

for i:=1 to n do

 begin

   a[i]:=random(51)-33;

   write(a[i]:4);

   if a[i]>max then

     begin

       max:=a[i];

       maxi:=i;

     end;

 end;

writeln;

writeln('Max:', max, '  MaxI:',maxi);

end.