profile
Размещено 5 лет назад по предмету Информатика от ariaro

Массив A(6х8), найти сумму положительных элементов и вычесть произведение максимума и минимума (максимум и минимум искать по модулю).
НА ПАСКАЛЕ, как можно проще
спасибо =*

  1. Ответ на вопрос
    Ответ на вопрос дан petyaGavrikov
    const n=6; m=8;
    var 
    a:array[1..n,1..m] of integer;
    i,j,max,min,s:integer;
    begin
    Randomize;
    writeln('Исходный массив:');
    for i:=1 to n do
     begin
     for j:=1 to m do
      begin
       a[i,j]:=random(51)-25;
       write(a[i,j]:4);
      end;
      writeln;
     end;
    max:=abs(a[1,1]); min:=abs(a[1,1]); s:=0;
    for i:=1 to n do
     for j:=1 to m do
      begin
      if a[i,j]>0 then s:=s+a[i,j];
      if abs(a[i,j])>max then max:=abs(a[i,j]);
      if abs(a[i,j])<min then min:=abs(a[i,j]);
      end;
    writeln('s = ',s,' max = ',max,' min = ',min);
    writeln('s - max * min = ',s-max*min);
    end.

    Пример:
    Исходный массив:
     -10   4   9 -21   9  24  24 -24
     -23 -21  21  24 -18 -15  14  -8
       2 -23 -17   5  17  -8 -10 -16
     -22  -9   6 -21   3 -13  18  13
      -8  -3 -25  -6  -2   8  14  25
     -19 -10  22  -1  -6 -20  -5 -17
    s = 262 max = 25 min = 1
    s - max * min = 237
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 5 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.