Var a: array[1..15] of integer; i, max, j: byte;

begin

randomize;

max: =a[1];

for i: =1 to 15 do

begin

a[i]: =random(46)-15;

if a[i]> max

then begin

max: =a[i]; j: =i;

end;

write(a[i],' ');

end;

writeln('maximum ',max,' na ',j);

readln;

end.

переведите в с++

ну или написать в с++ создайте целочисленный массив а[1..15] с генератора случайных чисел с элементами от –15 до 30 и выведите его на экран. определите самый большой элемент массива и его индекс.

программа:

var a: array[1..15] of integer;

i,max,j: byte;

begin

randomize;

for i: =1 to 15 do

begin

a[i]: =random(46)-15;

write(a[i],' ');

end;

writeln;

max: =a[1]; j: =1;

for i: =2 to 15 do

if a[i]> max then begin

  max: =a[i]; j: =i;

end;

writeln('maximum ',max,' na ',j);

readln;

end.

пример:

5 1 5 6 -12 3 23 26 6 25 -7 11 25 -15 7  

maximum 26 na 8

программа на паскале:

program a1;

var i, j : integer;

      s : real;

      a: array [1..5, 1..6] of real;

      b: array [1..6] of real;

begin

  for i: =1 to 5 do

    for j: =1 to 6 do

        readln(a[i,j]);

  for j: =1 to 6 do

    begin

        s: =0;

        for : =1 to 5 do

            s: =s+a[i,j];

        b[j]: =s

    end;

  write ('полученный массив в: ');

  for j: =1 to d do

    write(b[j]);

  readln

end. 

1)tut kazhdii simvol zanimaet 1 bait(tak imeem bukvi alfavita( soobshenie s uchetom probela zanimaet 10 bait.

2)tut kazhdii simvol zanimaet 1 bait(tak ispol'zovani znaki + i - pmimo 0 i 1);

  soobshenie zanimaet 11 bait.

3)analogichno 15 bait.