Вместо слов тип укажешь real если массив действительных чисел или integer - если целые числа
var a: array[1..10] of тип i,n:integer; max, min, sum: тип begin write('Введите количество элементов массива'); readln(n); for i:=1 to n do read(a[i]); max:=a[1]; min:=a[1]; for i:=2 to n do if a[i]>max then max:=a[i]; for i:=2 to n do if a[i]>min then min:=a[i]; sum:=0; for i:=1 to n do if (a[i]>min) and (a[i]<max) then sum:= sum+a[i]; write('Сумма элементов массива расположенных между максимальным и минимальным = ', sum); end.
1) var a: array[0..100] of integer; i, s, n: integer; begin writeln('Введите количество элементов в массиве: '); readln(n); for i := 1 to n do begin a[i] := random(10); write(a[i], ' '); s := s * a[i]; end; writeln; writeln(s); end.
2) var a: array[0..100] of integer; i, s, n: integer; begin writeln('Введите количество элементов в массиве: '); readln(n); for i := 1 to n do begin a[i] := random(10); write(a[i], ' '); end; for i := 1 to n do begin // if (i mod 2=0) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди четных номеров элементов. // if (a[i] mod 2=0) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди самих четных элементов. end; writeln; writeln(s); end.
3)var a: array[0..100] of integer; i, s, n, max: integer; begin writeln('Введите количество элементов в массиве: '); readln(n); for i := 1 to n do begin a[i] := random(10); write(a[i], ' '); end; s:=0; for i := 1 to n do begin if (a[i]>s) then s:=a[i]; end; writeln; writeln(s); end.
4)var a: array[0..100] of integer; i, s, n, max: integer; begin writeln('Введите количество элементов в массиве: '); readln(n); for i := 1 to n do begin a[i] := random(10); write(a[i], ' '); end; s:=0; for i := 1 to n do begin if (a[i]>s) and (a[i] mod 3=0) then s:=a[i]; end; writeln; writeln(s); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку