profile
Размещено 4 года назад по предмету Информатика от Denisqaa

Помогите написать программу в паскале. За ранее спасибо.
Задача на одномерный массив.

 

Задание 2.
Задан одномерный массив MAS2 [1..10].
Массив объявите как константу типа Integer размером [1..10] со следующими значениями: (-7, 89, 64, -43, 4, 6, 8, -12, 55, 99)
Замените все положительные элементы одномерного массива на их квадраты, а отрицательные удвойте.
Результат вывести на экран.
Вычислить сумму всех элементов нового массива и вывести на экран.

Исходный массив       Новый массив
-7                                          -14
89                                         7921
64                                          4096
-43                                          -86
4                                               16
6                                                36
8                                                64
-12                                           -24
55                                            3025
99                                                9801
Сумма элементов нового массива           24835

  1. Ответ на вопрос
    Ответ на вопрос дан Alphaeus


    Program Denisqaa;
    uses crt;
    const mas2:array[1..10] of integer=(-7, 89, 64, -43, 4, 6, 8, -12, 55, 99);
    var
      res: array[1..10] of integer;
      i,sum:integer;
    begin
      writeln('+-----------------------------------------+');
      writeln('|            ПРОГРАММА  Denisqaa          |');
      writeln('+-----------------------------------------+');
      writeln('|   Исходный массив   |   Новый массив    |');
      writeln('+-----------------------------------------+');
      sum:=0;
      for i:=1 to 10 do
        begin
          if mas2[i]<0 then res[i]:=mas2[i]*2;
          if mas2[i]>0 then res[i]:=mas2[i]*mas2[i];
          if mas2[i]=0 then res[i]:=mas2[i];  
          sum:=sum+res[i];
          writeln('|    ',mas2[i]:8,'         |    ',res[i]:8,'       | ');
          writeln('+-----------------------------------------+');
        end;
      writeln();
      writeln('Сумма элементов нового массива ',sum)
    end.

  2. Ответ на вопрос
    Ответ на вопрос дан Sky09

    uses crt;
    const
      a: array [1..10] of integer=(-7, 89, 64, -43, 4, 6, 8, -12, 55, 99);
    var
      b:array[1..10] of integer; i,s:integer;
    begin

      s:=0;
      writeln('Исходный массив');
      for i:=1 to 10 do
      begin
        write(a[i]:5);
        if a[i]>0 then b[i]:=sqr(a[i])
          else b[i]:=2*a[i];
      end;
      writeln;
      writeln('Новый массив');
      for i:=1 to 10 do
      begin
        write(b[i]:5);
        s:=s+b[i];
      end;
      writeln;

      writeln('Сумма элементов нового массива  ',s);
    end.

Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
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) их не спросили

Информация

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