Максимальный элемент массива и его номер и сумму элементов массива расположенных до последнего положительного элемента

@Klark73 · Регистрация: 30.03.2011

@versa4e · 15.05.2011, 11:53

Pascal

const
  n=10;
var
  arr:array[1..n] of integer;
  i,maxi,k,s:integer;
begin
  randomize;
  for i:=1 to n do
    begin
      arr[i]:=-10+random(21);
      write(arr[i]:3);
      if i=n then
        writeln;
    end;
  maxi:=1;
  for i:=2 to n do
    if arr[i]>arr[maxi] then
      maxi:=i;
  k:=0;
  for i:=1 to n do
    if arr[i]>0 then
      k:=i;
  s:=0;
  for i:=1 to k do
    inc(s,arr[i]);
  writeln('Index posl. polozh. elementa-> ',k);
  writeln('Summa-> ',s);
  writeln('Max element-> arr[',maxi,']=',arr[maxi]);
  readln;
end.

@Klark73 2 / 2 / 0 Регистрация: 30.03.2011 Сообщений: 66
		1
	Максимальный элемент массива и его номер и сумму элементов массива расположенных до последнего положительного элемента 15.05.2011, 11:31. Показов 1087. Ответов 1 Метки нет (Все метки) Максимальный элемент массива и его номер и сумму элементов массива расположенных до последнего положительного элемента 0

Опции темы

Максимальный элемент массива и его номер и сумму элементов массива расположенных до последнего положительного элемента

Решение