Найти сумму всех четных элементов массива, заключенных между наименьшим и наибольшим

@nikita6543 · Регистрация: 12.06.2012

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

@JokeR.BY · 14.06.2012, 19:52

Pascal

program Project2;
 
uses
  crt;
 
const
  n=15;
 
type
  matrix= array [1..n] of integer;
 
var mas: matrix;
    i,max,min,sum,temp: Integer;
 
begin
  clrscr;
  Randomize;
  max:=1; min:=1;
  for i:=1 to n do
  begin
    mas[i]:=Random(100)-50;
    write('mas[',i,']=',mas[i],' ');
    if (mas[i]>mas[max]) then
      max:=i;
    if (mas[i]<mas[min]) then
      min:=i;
    Writeln;
  end;
  if (max<min) then
  begin
    temp:=min;
    min:=max;
    max:=temp;
  end;
  sum:=0;
  for i:=min+1 to max-1 do
  begin
    if mas[i] mod 2=0 then
      sum:=sum+mas[i];
  end;
  writeln('Summa = ',sum);
  Readln;
end.

@nikita6543 0 / 0 / 0 Регистрация: 12.06.2012 Сообщений: 14
		1
	Найти сумму всех четных элементов массива, заключенных между наименьшим и наибольшим 14.06.2012, 18:37. Показов 1230. Ответов 1 Метки нет (Все метки) Найти сумму всех четных элементов массива, заключенных между наименьшим и наибольшим 0

	14.06.2012, 19:52

Найти сумму всех четных элементов массива, заключенных между наименьшим и наибольшим

Решение