Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Задание 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

Ответ оставил Гость

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.