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

@MrWalrusPower · Регистрация: 12.11.2013

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

Создать массив с элементами a[k+i,n+i], где i-номер варианта ( номер варианта 9 ) , k,n=1,2,3,4. Вывести его на экран в виде таблицы.
Вычислить сумму отрицательных элементов массива.Найти максимальный элемент.

@Svager · 21.06.2014, 21:20

Сообщение от MrWalrusPower

a[k+i,n+i], где i-номер варианта ( номер варианта 9 ) , k,n=1,2,3,4

отрицательных не будет? не?

Pascal

uses crt;
const nmax=20;
      k=9;
var a:array[1..nmax,1..nmax] of integer;
    i,j,n,s,max:integer;
begin
 repeat
  write('n=');
   readln(n);
 until n in [1..nmax];
 writeln('Ìàòðèöà :') ;
  for i:=1 to n do
   begin
    for j:=1 to n do
     begin
      a[i,j]:=i+j+2*k;
      write(a[i,j]:4);
     end;
    writeln;
   end;
  max:=-100;
   for i:=1 to n do
    begin
     for j:=1 to n do
      begin
       if a[i,j]<0 then
        s:=s+a[i,j];
       if a[i,j]>max then
        max:=a[i,j];
      end;
    end;
  writeln('Ìàêñèìàëüíûé ýëåìåíò = ',max);
   writeln('Ñóììà îòðèöàòåëüíûõ = ',s);
end.

@MrWalrusPower 0 / 0 / 0 Регистрация: 12.11.2013 Сообщений: 15
		1
	Вычислить сумму отрицательных элементов массива.Найти максимальный элемент. 21.06.2014, 21:12. Показов 1378. Ответов 1 Метки нет (Все метки) Создать массив с элементами a[k+i,n+i], где i-номер варианта ( номер варианта 9 ) , k,n=1,2,3,4. Вывести его на экран в виде таблицы. Вычислить сумму отрицательных элементов массива.Найти максимальный элемент. 0

Опции темы

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

Решение