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

+ 0 -

Katheo

25 сент. 2013 г., 5:58:04 (10 лет назад)

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.

+ 0 -

Ermolovichtoni

25 сент. 2013 г., 7:56:23 (10 лет назад)

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('Исходный массив