Предмет: Информатика, автор: 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

Ответы

Автор ответа: Alphaeus
0


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.

Автор ответа: Sky09
0

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.

Похожие вопросы
Предмет: Русский язык, автор: masterZHayKo
ДАЮ 50 БАЛЛОВ, ПРОВЕРЬТЕ ПЖ
За деревней весело играла кошка со своими котятами.Светило яркое солнце, а погода была хорошая. Вдруг откуда ни возьмись с вершины горы вылетел степной орёл.Он как молния спустился и схватил котёнка.Орёл не успел еще взлететь, а кошка уже вцепилась в орла.Он бросил котёнка и они схватились в битве.Началась смертельная битва. У хищника было больше преимущества выиграть. У него были могучие крылья, кривые когти, сильные лапы, острый клюв.Орёл выклевал ей глаз.И он рвал кожу бедной кошке.Но кошка не сдавалась.Она собралась с силами и перекусила крыло.Кошка почти выиграла, но у неё закончились силы,а у орла было ещё много сил.Кошка собралась и сделала прыжок.В той же минуте она выиграла, а хищник лежал мертвый на земле с оторванной головой когда закончилась битва кошка побежала лизать израненного котёнка