4.3 Практикалық жұмыс №7

Х(5,5) екі өлшемді массивіндегі бас дигонал элементтерінің көбейтіндісін табу.

Бағдарламалық алгоритмі:

Pascal:

uses crt;

type X = array [1..5,1..5]of integer;

var a:X; i, j, K: integer;

begin

clrscr;

randomize;

writeln('Sgenerirovannyi massiv X(5,5)');

for i:=1 to 5 do

begin

for j:=1 to 5 do

begin

a[i,j]:=random(10)-3;

write(a[i,j],' ');end;

writeln;end;

K:=1;

for i:=1 to 5 do

begin

for j:=1 to 5 do

begin

if i=j then

K:=K*a[i,j];end;end;

writeln ('massivte bas diagonal elementterinin kobeitindisi ',K);

end.

Си:

#include<conio.h>

#include<stdlib.h>

#include<time.h>

#define n 5

#define m 5

main()

{

int a[n][m],i,j,k;

srand(time(NULL));

printf("Sgenerirovannyi massiv S[5][5]\n");

k=1;

for(i=1;i<=n;i++)

for(j=1;j<=m;j++)

a[i][j]=rand()%10-3;

for(i=1;i<=n;i++)

{

for(j=1;j<=m;j++)

printf("%d ",a[i][j]);

printf("\n");}

for(i=1;i<=n;i++)

for(j=1;j<=m;j++)

if(i=j)

k=k*a[i][j];

printf("%d\n",k);

getch();

}

Бағдарламаның нәтижесі:

Блок-схема: