Условие задачи

В заданном массиве A[1..N] положительные элементы уменьшить вдвое, а отрицательные заменить на значения их индексов.

ТЕКСТ ПРОГРАММЫ

program project4;

Const

N=10;

Type

Arr = array[1..N] of Real;

Var

A: Arr;

I: Integer;

Procedure Vivod(M:Arr);

var

i:Integer;

begin

For i:=1 to N do

Write(M[i]:8:1);

Writeln;

end;

Begin

Randomize;

For i:=1 to N do

A[i]:=Random(3)-2;

Writeln ('Begin:');

Vivod(A);

for i:=1 to N do

if A[i] >= 0 then A [i]:= A [i] / 2

else A[i]:=i;

Writeln ('end:');

Vivod(A);

readln;

End.

РЕЗУЛЬТАТ ВЫПОЛНЕНИЯ ПРОГРАММЫ

ЗАДАЧА №2-56

УСЛОВИЕ ЗАДАЧИ

Сформировать матрицу kxk состоящую из целых чисел от N в обрвтном порядке (N, N-1, N-2,…). Подсчитать суммы столбцов и строк. Вывести результаты в виде:

МАТРИЦА Целых чисел

1 2 3 … Сум.

1 А11 А12 А13 … Сум1

2 А21 А22 А23 … Сум2

3 А31 А32 А33 … Сум3

* … … … … …

--- --- --- ---

Сум. Сум1 Сум2 Сум3 …

ТЕКСТ ПРОГРАММЫ

program project2-56;

const

N=100;

type

Matrix=array [1..N, 1..N] of integer;

var

a: matrix;

Procedure fill (var M:Matrix);

var

i, j, z, k: Integer;

begin

writeln ('input z, k '); readln (z,k);

// анти идиот

if k< 0 then

begin

repeat

begin

writeln ('input k again'); readln (k)

end;

until k>0;

end;

//конец

for i:=1 to k do

for j:=1 to k do

begin

M [i,j]:= z;

z:=z-1;

end;

end;

procedure outM (M:matrix);

var

i,j, sum, k: Integer;

begin

writeln ('matrica celyh chisel');

for i:=1 to k do

begin

write (i, ')');

sum:=0;

for j:=1 to k do

begin

write (M[i,j]:8);

sum:= sum + M[i,j];

end;

write (' s ',sum);

writeln;

end;

writeln;

begin

for j:=1 to k do

begin

sum:=0;

for i:=1 to k do

begin

sum:= sum + M[i,j];

end;

write (' ');

write ('s ',sum);

end;

end;

end;

begin

fill (a); outM(a);

readln;

end.