Вопрос по информатике:
написать программу на паскале:определить количество строк матрицы, в которых хотя бы один элемент равен t
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 15.04.2016 14:57
- Информатика
- remove_red_eye 2327
- thumb_up 13
Ответы и объяснения 2
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.
- 16.04.2016 21:54
- thumb_up 22
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.
- 17.04.2016 13:06
- thumb_up 43
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.