Паскаль. Дан двумерный массив, необходимо найти количество элементов, кратных 5.
Набросала, что смогла. Понимаю, что у знающих людей скорее всего кровь из глаз потечет, но если на деле не все так плохо, подскажите, где ошибки.
program a2;
var
n,m,a,b,i,j,s :integer;
mmas: array [1..50,1..50] of integer;
begin
i:=0;
j:=0;
writeln ('Размерность массива (числа от 1 до 49): ');
read (m,n);
for a:= 1 to n do
for b:= 1 to m do
mmas[a,b]:= random (49);
for i:= 1 to 49 do
for j:= 1 to 49 do
if (a[i] mod 5=0) then i:=1+i;
repeat i:=1+i until a=49;
if (b[i] mod 5=0) then j:=1+j;
repeat j:=1+j until b=49;
s:=i+j;
writeln (s);
end.
#include <iostream>
#include <cmath>
using namespace std;
int main() {
float a,b,c,p,s;
struct {
float ax,ay,bx,by,cx,cy;
} ABC;
cout<<" задайте координаты точек"<<endl;
cout<<" ax "<<" ay "<<" bx "<<" by "<<" cx "<<" cy";
cout<<endl;
cin>>ABC.ax>>ABC.ay>>ABC.bx>>ABC.by>>ABC.cx>>ABC.cy;
// вычисление длин сторон
a=sqrt(pow((ABC.bx-ABC.ax),2)+pow((ABC.by-ABC.ay),2));
b=sqrt(pow((ABC.cx-ABC.bx),2)+pow((ABC.cy-ABC.by),2));
c=sqrt(pow((ABC.cx-ABC.ax),2)+pow((ABC.cy-ABC.ay),2));
p=(a+b+c)/2;
// проверка, что можно составить треугольник
if (((p-a)>0) && ((p-b)>0) && ((p-c)>0))
cout<<"точки образуют треугольник"<<endl;
else cout<<"точки лежат на одной прямой"<<endl;
system("pause");
return(0);
}