Есть ответ 👍

Определите результат выполнения алгоритов

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

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


послідовно з'єднання


1. const n=11; var a: array[1..n] of integer; max,imax,i: integer; begin randomize; for i: =1 to n do begin   a[i]: =random(101);   write(a[i],' ');   end; writeln; max: =a[1]; imax: =1; for i: =2 to n do   if a[i]> max then begin max: =a[i]; imax: =i; end; writeln('max = ',max,'   imax = ',imax); end. пример: 67 3 11 65 72 82 18 42 8 74 40  max = 82   imax = 6 2. const n=11; var a: array[1..n] of integer; min,i: integer; begin randomize; for i: =1 to n do begin   a[i]: =random(51)+20;   write(a[i]: 3);   end; writeln; min: =a[1]; for i: =2 to n do   if a[i]< min then min: =a[i]; writeln('min = ',min); for i: =1 to n do   write(a[i]-min: 3); writeln; end. пример:   63 25 39 25 44 21 65 55 66 47 42 min = 21   42   4 18   4 23   0 44 34 45 26 21 3. const n=15; var a: array[1..n] of integer; s,i: integer; begin randomize; for i: =1 to n do begin   a[i]: =random(11)+2;   write(a[i]: 3);   end; writeln; s: =0; for i: =1 to n do   if a[i] mod 2 = 0 then s: =s+a[i]; writeln('s = ',s); end. пример:   2   3   5   9   3 12   5 10   3   2   3 10   8   8   3 s = 52 4. const n=10; var a: array[1..n] of integer; max,i: integer; begin randomize; for i: =1 to n do begin   a[i]: =random(51)-25;   write(a[i]: 4);   end; writeln; max: =-10000; for i: =1 to n do   if (a[i]< 0)and(a[i]> max) then max: =a[i]; writeln('max = ',max); end. пример:     1   1 -22   21 -25   17 -11 -13   9   16 max = -11

Популярно: Информатика