Дан массив из 16 целых чисел, случайно заданных в диапазоне от 0 до 70. получить max(a1a16,a2**a9*).

273

458

Посмотреть ответы 2

Ответы на вопрос:

Semen123486

Информатика

4,7(82 оценок)

program pr1; uses crt; var mas: array[1..16] of integer; max: array[1..8] of integer; i,b,c: integer; beginclrscr; randomize; b: =0; for i: =1 to 16 do mas[i]: =random(71); for i: =1 to 16 do write(mas[i]); for i: =1 to 16 div 2 do begin max[i]: =mas[i]*mas[16-b]; b: =b+1; end; writeln(); for i: =1 to 8 do write(max[i]); end.

supergirll9

Информатика

4,6(20 оценок)

// pascalabc.net 3.3, сборка 1573 от 04.11.2017 // внимание! если программа не работает, обновите версию! procedure ab(a,b: array of integer); begin var (iamax,ibmax): =(a.indexmax,b.indexmax); var t: =a[iamax]; a[iamax]: =b[ibmax]; b[ibmax]: =t end; begin var a: =arrrandom(9,-99,99); write('a: '); a.println; var b: =arrrandom(11,-99,99); write('b: '); b.println; ab(a,b); write('a: '); a.println; write('b: '); b.println; end. пример a: -46 -76 98 -83 84 8 -14 46 8 b: 29 -36 37 78 -20 35 -77 -23 80 -50 -55 a: -46 -76 80 -83 84 8 -14 46 8 b: 29 -36 37 78 -20 35 -77 -23 98 -50 -55