Дан двумерный массив целых числе i=10 j=15, заполняется случайным образом целыми числами от 0до 100. 1) определить сколько раз в нем встречается элемент со значеием х. х задается прользователем 2) определить количесво четных элементов массива.
var a:array[1..10,1..15]of integer; i,j,n,x:integer; begin for i:=1 to 10 do for j:=1 to 15 do a[i,j]:=random(101); for i:=1 to 10 do begin for j:=1 to 15 do write(a[i,j],' '); if j=15 then writeln; end; readln(x); for i:=1 to 10 do for j:=1 to 15 do if a[i,j]=x then inc(n); writeln(n); end.
var a:array[1..10,1..15]of integer; i,j,k:integer; begin for i:=1 to 10 do for j:=1 to 15 do a[i,j]:=random(101); for i:=1 to 10 do begin for j:=1 to 15 do write(a[i,j],' '); if j=15 then writeln; end; for i:=1 to 10 do for j:=1 to 15 do if a[i,j] mod 2=0 then inc(k); writeln(k); end.
Program pr2; uses crt; var m,n,i,j,k,l:integer; mas: array[1..99,1..99] of integer; masb: array [1..99] of integer; begin clrscr; write('vvedite m'); readln(m); write('vvedite n'); readln(n); writeln('vvedite massiv MxN') ;for i:=1 to m do for j:=1 to n do begin write('mas[',i,',',j,']= '); readln(mas[i,j]); end; for i:=1 to m do begin k:=mas[i,1]; l:=mas[i,1]; for j:=1 to n do begin if k < mas[i,j] then k:=mas[i,j]; if l > mas[i,j] then l:=mas[i,j]; end; masb[i]:=k-l;
end; for i:=1 to m do begin for j:=1 to n do write(mas[i,j],' '); writeln('result = ',masb[i]); end; readln(i) end.
Прямые параллельны между собой, если частное коэффициентов у X и Y равны. Коэффициент - это числовой множитель в алгебраическом выражении.* Посчитаем их.
7x + 6y + 9 = 0 У этого уравнения коэффициент у X - 7, а у Y - 6 их частное - это
5x + 7y + 14 = 0 Тут коэффициенты X, Y это 5 и 7 их частное -
8x + 6y + 19 = 0 Тут коэффициенты X, Y это 8 и 6 их частное - сократим дробь на 2, получим
15x + 21y + 22 = 0 Тут коэффициенты X, Y это 15 и 21 их частное - сократим дробь на 3, получим
10x + 14y + 4 = 0 Тут коэффициенты X, Y это 10 и 14 их частное - сократим дробь на 2, получим
И того у нас получилось 3 равные дроби, это и есть те уравнения. 5x + 7y + 14 = 0 15x + 21y + 22 = 0 10x + 14y + 4 = 0
var a:array[1..10,1..15]of integer;
i,j,n,x:integer;
begin
for i:=1 to 10 do for j:=1 to 15 do a[i,j]:=random(101);
for i:=1 to 10 do begin for j:=1 to 15 do write(a[i,j],' '); if j=15 then writeln; end;
readln(x);
for i:=1 to 10 do for j:=1 to 15 do
if a[i,j]=x then inc(n);
writeln(n);
end.
var a:array[1..10,1..15]of integer;
i,j,k:integer;
begin
for i:=1 to 10 do for j:=1 to 15 do a[i,j]:=random(101);
for i:=1 to 10 do begin for j:=1 to 15 do write(a[i,j],' '); if j=15 then writeln; end;
for i:=1 to 10 do for j:=1 to 15 do
if a[i,j] mod 2=0 then inc(k);
writeln(k);
end.