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

[Wikul4ik]

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

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


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

 

[Vladimir_S]

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

 

[shrek=)]

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

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=)]

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

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]

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

 

[shrek=)]

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