Помогите,пожалуйста,написать программу в Паскале...

Дан массив. Уменьшить все его элементы на число a.

1

Ответы и объяснения

2013-03-21T22:26:02+04:00

Program pr;
uses crt;
Var M:array[1..10, 1..15] of integer;
    i,j:integer;
    a:integer;
    
Begin
Writeln('vvedite a');
readln(a);
Writeln('vvedite massiv');
for i:=1 to 10 do Begin
    for j:=1 to 15 do read(M[i,j]);
                Writeln;
                end;


    for i:=1 to 10 do
        for j:=1 to 15 do M[i,j]:=M[i,j]-a;
        
    for i:=1 to 10 do Begin
        for j:=1 to 15 do Write(M[i,j]:5);
                       Writeln;
                       end;
        readln;
        end.