Ответы на вопрос:
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
Популярно: Информатика
-
Raud108.11.2022 15:14
-
axeltrofimsky03.05.2022 01:29
-
Anastasiay2920.03.2023 17:19
-
Nika034517.10.2020 23:42
-
fuzzy7719.06.2023 02:28
-
egoroff127109.05.2021 00:10
-
Princess358ghhh08.07.2021 23:26
-
lewaq05.08.2022 14:25
-
fggda9807.06.2020 13:18
-
dianadiana198215.04.2023 15:55