С++ --> Pascal

[spinogryz_ua]

Для полного счастья нехватает только этих 2-х На Паскальке =)
Буду очень благодарен любой помощи.

#include <stdio.h>
#include <stdlib.h>
void input(int *a,const int n,
int* p,
int* q) {
;//....
}
void output(int *a,const int n,int p, int q) {
;//....
}
void work(int *a,const int n,int p, int q) {
int i=0;
for(;i<n;i++) {
if((abs(a)%p)==q)
a=0;
}
}
int main() {
const int n=100;
int p,q;
int a[n];
input(a,n,&p,&q);
work(a,n,p,q);
output(a,n,p,q);
return 0;
}

#include <stdio.h>
#include <time.h>
#include <stdlib.h>
 
int main(int argc, char *argv[]) {
  srand(time(NULL));
  int i, j;
  int width  = 17;
  int height = 17;
 
  int **matrix = (int**)malloc(sizeof(int*) * height);
  for (i = 0; i < height; ++i) {
    matrix[i] = (int*)malloc(sizeof(int) * width);
    for (j = 0; j < width; ++j)
      printf("%4d", matrix[i][j] = rand() % 100);
    printf("\n");
  }
  printf("\n");
 
  int min_value = matrix[0][0];
  for (i = 0; i < height; ++i)
    for (j = 0; j < width; ++j)
      if (min_value > matrix[i][j])
        min_value = matrix[i][j];
 
  for (i = 0; i < height; ++i)
    for (j = 0; j < width; ++j)
      if (matrix[i][j] == min_value)
        printf("matrix[%d, %d] = %d;\n", i, j, min_value);
 
  for (i = 0; i < height; ++i)
    free(matrix[i]);
  free(matrix);
  return 0;
}

Заранее благодарю.

[gaw4]

условие первой задачки можно

[spinogryz_ua]

1) Даны, целые числа p,q,a1, ... ,a67 p>q>=0. В последовательности a1 ... a67 Заменить нулями члены, модуль которых при делении на р зает в остатке q.

2) В данной квадратной, целочисельной матрице порядка 17, указать индексы всех элементов с найбольшим значением

[gaw4]

искл. как вариант

Program p1;
 Uses crt;
 const n = 67;

 Var  matrix: array [1..n] of integer;
     i,p,q:integer;

begin
 writeln('p-?'); read (p);
  writeln('q-?'); read (q);
if (p>q) and (p>0) and (q>=0) then
  begin
  for i := 1 to n do
   begin
           matrix[i] := Random(90)+10;
           write( matrix[i],' ')
     end;
writeln;writeln;
  for i := 1 to n do
    begin
      if abs(matrix[i]) mod p=q then  matrix[i]:=0;
       write( matrix[i],' ')
    end;
 end

else  writeln( '(p>q) and (p>0) and (q=>0)');
readln;
end.

Program p2;
 Uses crt;
 const n = 17;m=17;

 Var  matrix: array [0..n,0..m] of integer;
     i,j,max_value:integer;


begin
  for i := 0 to n do
   begin
    for j := 0 to m do
     begin
           matrix[i,j] := Random(90)+10;
           write( matrix[i,j],' ')
     end;
  writeln;
end;

max_value := matrix[0,0];
  for i := 0 to n do
    for j := 0 to m do
      if max_value < matrix[i,j] then max_value := matrix[i,j];
      
 writeln; writeln('--------------> max = ',max_value); writeln;
 
  for i := 0 to n do
    for j := 0 to m do
      if matrix[i,j] =max_value then writeln( 'matrix[',i,',',j,']=',max_value) ;

end.

[spinogryz_ua]

Очромное, человеческое спасибо вам!!!