Вычислить номер максимального элемента массива, сумму отрицательных элементов

@Succous · Регистрация: 14.06.2012

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

В одномерном массиве , состоящем из n вещественных элементов , вычислить:
1) Номер максимального элемента массива;
2) Сумма отрицательных элементов массива;

@ermolay · 23.09.2012, 23:46

Pascal

const
  nmax=100;
var
  a: array[1..nmax] of integer;
  n,i,max,k,sum: integer;
begin
  randomize;
  write('Введите размер массива n: ');
  readln(n);
  writeln('Массив:');
  a[1]:=random(199)-99;
  max:=a[1]; 
  k:=1; 
  sum:=0;
  write(a[1],' ');
  for i:=2 to n do
  begin
    a[i]:=random(199)-99;
    write(a[i],' ');
    if a[i]>max then
    begin
      max:=a[i];
      k:=i;
    end;
    if a[i]<0 then sum:=sum+a[i];
  end;
  writeln;
  writeln('Максимальный элемент массива: a[',k,'] = ',max);
  writeln('Сумма отрицательных элементов = ',sum);
  readln;
end.

@Succous 650 / 626 / 9 Регистрация: 14.06.2012 Сообщений: 1,727
		1
	Вычислить номер максимального элемента массива, сумму отрицательных элементов 23.09.2012, 23:31. Показов 1555. Ответов 1 Метки нет (Все метки) В одномерном массиве , состоящем из n вещественных элементов , вычислить: 1) Номер максимального элемента массива; 2) Сумма отрицательных элементов массива; 0

Опции темы

Вычислить номер максимального элемента массива, сумму отрицательных элементов

Решение