Найти количество положительных элементов между между максимальным элементом и минимальным элементом в массиве A(20)

@Vladislav118 · Регистрация: 06.12.2013

Студворк — интернет-сервис помощи студентам

Найти количество положительных элементов между между максимальным элементом и минимальным элементом в массиве A(20) помогите пожалуйста

@ildwine · 07.12.2013, 13:40

Pascal

const
  n = 20;
var
  a : array[1..n] of integer;
  i, max, min, k : integer;
  
begin
  k := 0;
  min := 32767;
  max := -32768;
  randomize;
  writeln('первый массив: ');
  for i := 1 to n do
  begin
    a[i] := random(100) - 50;
    write(a[i]:4);
    if a[i] <= min then min := a[i];
    if a[i] >= max then max := a[i]
  end;
  writeln;
  {считаем количество}
  for i := 1 to n do
    if (a[i] > min) and (a[i] < max) and (a[i] > 0) then inc(k);
  writeln('максимум: ', max);
  writeln('минимум: ', min);
  writeln('количество: ', k);
end.

@Vladislav118 0 / 0 / 0 Регистрация: 06.12.2013 Сообщений: 15
		1
	Найти количество положительных элементов между между максимальным элементом и минимальным элементом в массиве A(20) 06.12.2013, 14:27. Показов 1721. Ответов 1 Метки нет (Все метки) Найти количество положительных элементов между между максимальным элементом и минимальным элементом в массиве A(20) помогите пожалуйста 0

	07.12.2013, 13:40

Опции темы

Найти количество положительных элементов между между максимальным элементом и минимальным элементом в массиве A(20)

Решение