Технический форум - Обработка одномерных и двумерных массивов

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Обработка одномерных и двумерных массивов (http://www.tehnari.ru/f41/t61315/)

Wikul4ik

15.12.2011 23:57

Обработка одномерных и двумерных массивов

1. (одномерный массив) - Даны натуральные числа n, q1, q2,…, q8. найти те члены qi последовательности q1, q2,…, q8 которые при делении на 7 дают остаток 5.

2. (двумерный массив) - Дана действительная матрица размера 45. Найти произведение всех ее отрицательных элементов.

Vladimir_S

16.12.2011 09:45

Ладно, летом наши экстрасенсы обещали заглянуть, тогда и узнаем, на каком языке программирования нужно выполнить задание. Ждите и помните - надежда умирает последней!

shrek=)

16.12.2011 13:40

Первая задача Паскаль:

Код:

var

q:array [1..8] of integer;

i:integer;

begin

randomize;

for i:=1 to 8 do begin

q[i]:=random(100);

write(q[i]:3);

end;

writeln;

for i:=1 to 8 do

if q[i] mod 7=5 then write(q[i]:3);

readln

end.

Первая задача С++:

Код:

#include <stdio.h>

#include <time.h>

using namespace std;

int main ()

{

    srand(time(NULL));

    int q[8],i;

    for (i=0;i<8;i++)

    {

        q[i]=rand()%100;

        printf ("%d",q[i]);

    }

    for (i=0;i<8;i++)

    {

        if (q[i]%7==5)

        printf ("%d",q[i]);

    }

getchar();

}

shrek=)

16.12.2011 13:41

Вторая задача Паскаль:

Код:

var

a:array [1..4,1..5] of integer;

i,j,p:integer;

begin

randomize;

for i:=1 to 4 do begin

for j:=1 to 5 do begin

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

write (a[i,j]:2);

if a[i,j]<0 then p:=p*a[i,j];

end;

writeln;

end;

write ('p=',p);

readln

end.

Вторая задача C++:

Код:

#include <stdio.h>

#include <time.h>

using namespace std;

int main ()

{

    srand(time(NULL));

    int a[4][5],i,j,p;

    for (i=0;i<4;i++){

    for (j=0;j<5;j++){

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

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

        if (a[i][j]<0)

        p*=a[i][j];

    }

    printf("\n");

    }

    printf ("P=%d",p);

getchar();

}

Vladimir_S

16.12.2011 14:48

Шрек, а где Ада, Фортран, PL и Ассемблер? :D:D:D

shrek=)

16.12.2011 15:02

Это, уж простите, не ко мне!!!:D:D:D

Часовой пояс GMT +4, время: 06:53.