Дан целочисленный двумерный массив, размерности n х m. Вывести на экран те элементы, у которых остаток от деления на m равен k.Можно без рандомайза

Var a: array[1..50,1..50] of integer;
i, j, n, m,S: integer;
Begin
Write(‘сколько строк?’); Readln(n);
Write(‘сколько столбцов?’); Readln(m);
For i:=1 to n do
For j:=1 to m do
begin
write(‘a[‘,i,’,’,j,’)=’); readln (a[i,j]); {ввод двумерного массива}
end;
S:=0;
For i:=1 to n do
For j:=1 to m do
S:=S+a[i,j]; {подсчитывается сумма всех элементов}
Writeln(‘сумма элементов массива равна ‘,S);
End.
Должно быть на подобие этого

{ Треугольник задан координатами вершин (x1;y1),(x2;y2),(x3;y3).

Найти площадь треугольника (используя формулу Герона) }

uses crt;

var x1,x2,x3,y1,y2,y3,a,b,c,s,p : real;

begin

clrscr;

write('x1=');readln(x1);

write('y1=');readln(y1);

write('x2=');readln(x2);

write('y2=');readln(y2);

write('x3=');readln(x3);

write('y3=');readln(y3);

a:=sqrt(sqr(x1-x2)+sqr(y1-y2));

b:=sqrt(sqr(x2-x3)+sqr(y2-y3));

c:=sqrt(sqr(x3-x1)+sqr(y1-y3));

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

write('s=',s);

readln;

end.

формула герона!

А так я думаю эти задачки очень даже не сложные, только формулы надо знать!! !

периметр- это сумма всех сторон

например

begin

writteln( 'введите 3 стороны' ) ;

readln(a,b,c);

writeln(' периметр = ',a+b+c);

readln;

end.

Вот и все!! !

Удачи!

#include <stdlib.h>
#include <iostream>
#include <iomanip>
using namespace std;

int main() {
const int n = 3;
const int m = 4;
int a[n][m];
int s=0;

cout << "Исходный массив" <<endl;
srand(time(0));
for (int i = 0; i < n; i++){
 for (int j = 0; j < m; j++){
a[i][j]=10+(51.0 / RAND_MAX) * rand();
cout << fixed << setw (7) << a[i][j];
 }
cout <<endl;
}
 for (int j = 0; j < m; j++)
  s = s+a[0][j]+a[n-1][j];
 for (int i = 1; i < n-1; i++)
  s = s+a[i][0]+a[i][m-1];
cout << "s = " << s << endl;
}

Пример:
Исходный массив
  55 33 24 41
  50 60 41 11
  17 33 45 50
s = 359