Написать программу на паскале:определить количество строк матрицы, в которых хотя бы один элемент равен t
Написать программу на паскале:определить количество строк матрицы, в которых хотя бы один элемент равен t
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы