Ответы на вопрос:
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
Популярно: Информатика
-
sabrinairnfd22.05.2022 10:57
-
maksymmakarec15.11.2022 15:17
-
VidioVizard04.05.2022 05:02
-
kisslenkayaozax1i10.05.2022 02:04
-
SASHA2310303.10.2022 21:44
-
00KARTOSHKA0007.07.2020 03:04
-
Mrnikitos200224.09.2022 05:16
-
mariagrigoryan305.06.2021 10:19
-
JustTonight05.01.2023 00:12
-
Andylov02.08.2021 16:21