uses crt; var a:array [1..100,1..100] of real; t:real; i,j,k:integer; begin randomize; write('Введите количество строк матрицы: '); read(i); write('Введите количество столбцов матрицы: '); read(j); write('Введите число t: '); read(t); clrscr; for i:=1 to i do begin for j:=1 to j do begin a[i,j]:=random(100)-50; write(a[i,j],' '); end; writeln; end; k:=0; for i:= 1 to i do begin for j:= 1 to j do begin if a[i,j]=t then begin k:=k+1; j:=1; i:=i+1; end; end; end; writeln('Количество строк: ',k); end.
Program Natasha1925_2; uses crt; const n=50; var a:array[1..n,1..n] of integer; t:integer; i,j,kwo:integer; yes:boolean; begin writeln('*** alphaues is thinking... ***'); writeln('*** OK ***'); writeln(); randomize; {создание массива} for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(101)-50; write(a[i,j]:7:2); end; writeln(); end; write('Введите число t: '); read(t); {поиск строк} kwo:=0; for i:=1 to n do begin yes:=FALSE; for j:=1 to n do if a[i,j]=t then yes:=TRUE; if yes then kwo:=kwo+1; end; writeln('Количество строк: ',kwo); end.
uses crt;
var
a:array [1..100,1..100] of real;
t:real; i,j,k:integer;
begin
randomize;
write('Введите количество строк матрицы: '); read(i);
write('Введите количество столбцов матрицы: '); read(j);
write('Введите число t: '); read(t);
clrscr;
for i:=1 to i do
begin
for j:=1 to j do
begin
a[i,j]:=random(100)-50;
write(a[i,j],' ');
end;
writeln;
end;
k:=0;
for i:= 1 to i do
begin
for j:= 1 to j do
begin
if a[i,j]=t then
begin
k:=k+1;
j:=1;
i:=i+1;
end;
end;
end;
writeln('Количество строк: ',k);
end.
Program Natasha1925_2;
uses crt;
const n=50;
var
a:array[1..n,1..n] of integer;
t:integer;
i,j,kwo:integer;
yes:boolean;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
randomize;
{создание массива}
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(101)-50;
write(a[i,j]:7:2);
end;
writeln();
end;
write('Введите число t: '); read(t);
{поиск строк}
kwo:=0;
for i:=1 to n do
begin
yes:=FALSE;
for j:=1 to n do
if a[i,j]=t then
yes:=TRUE;
if yes then kwo:=kwo+1;
end;
writeln('Количество строк: ',kwo);
end.