Предмет: Химия, автор: ygyut

помогите!! прошу срочно!!!

Приложения:

Ответы

Автор ответа: pinkbrein5

0

Ответ:

Все в фото , что и как делать )

Приложения:

Предыдущий вопрос

Следующий вопрос

Похожие вопросы

Предмет: Русский язык, автор: Jostik8

3 диолектных слова и записать тереторию на которых они используются и их значение

1 год назад

Предмет: Русский язык, автор: Аноним

Мини сочинение. Что сделать для сохранение и развития русского языка?

1 год назад

Предмет: Другие предметы, автор: OlyaCat2005

Опиши как устроен орган (музыкальный инструмент) кратко. Заранее спасибо!!!

1 год назад

Предмет: Информатика, автор: carrollnastya

Даны целочисленная матрица A[1:n, 1:m] и целочисленный массив B[1:k]. Удалить путем сдвига все строки матрицы, содержащие хотя бы один элемент, равный максимальному элементу массива.
const lmax = 100;
type
mass = array [1..lmax] of integer;
matr = array[1..lmax,1..lmax] of integer;
var
A: matr;
B: mass;
i, j, n, m, k, max: integer;
flag: boolean;
begin
repeat
writeln('Введите количество строк и столбцов матрицы n и m');
readln(n, m);
until (n>0) and (m>0);
repeat
writeln ('Введите колличество элементов массива k');
readln(k);
until k>0;
for i:=1 to n do
for j:=1 to m do begin
write('A[',i,',',j,']:=');
readln(A[i,j])
end;
for i:=1 to k do begin
write('B[',i,']:=');
readln(B[k]);
end;
flag:=false;
max:=-maxint;
for j:=1 to k do if B[j]>max then max:=B[j];
for i:=1 to n do
for j:=1 to m do begin
if flag=true then begin
A[n,m]:=A[n+1,m];
n:=n-1;
flag:=false;
end
else if A[n,m]=max then flag:=true;
end;
writeln('Новая матрица: ');
for i:=1 to n do begin
for j:=1 to m do
write(a[i,j],' ');
writeln;
end;
end.
Не могу найти, что именно не так, задание программа выполняет не верно

7 лет назад

Предмет: Українська мова, автор: Аноним

Реченя зі словосполученням очі колоти

7 лет назад