m, n, i, j: integer;
s: real;
a: array[,] of real;
write('Введите S: ');
read(s);
write('Введите M, N: ');
read(m, n);
setlength(a, m + 1, n + 1);
writeln('Введите элементы матрицы: ');
for i := 1 to m do
for j := 1 to n do
read(a[i, j]);
for i := 1 to m do
begin
for j := 1 to n do
if a[i, j] <> s then
begin
writeln(a[i, j]);
break;
end;
if a[i, j] = s then
writeln('-');
end;
end.
Пример:
Введите S: 7
Введите M, N: 3 4
Введите элементы матрицы:
7 4 3 7
3 5 1 4
7 7 7 7
4
3
-
Объяснение:
нажмите лучших ответ и лайк
Поделитесь своими знаниями, ответьте на вопрос:
Серед наведених нижче речень командами є … а) Запишіть умову задачі б) Як твої справи? в) Подай мені чашку г) Прибери посуд д) Іван народився влітку е) Приходь до нас в суботу
Робототе́хника (от робот и техника; англ. robotics — роботика, роботехник) — прикладная наука, занимающаяся разработкой автоматизированных технических систем и являющаяся важнейшей технической основой развития производства
Робототехника опирается на такие дисциплины, как электроника, механика, кибернетика, телемеханика, мехатроника, информатика, а также радиотехника и электротехника. Выделяют строительную, промышленную, бытовую, медицинскую, авиационную и экстремальную (военную, космическую, подводную) робототехнику.