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

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

​

Приложения:

Ответы

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

Ответ:

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

Приложения:
Предыдущий вопрос
Следующий вопрос
Похожие вопросы
Предмет: Русский язык, автор: Alisaket202
попробуй себя в роли литературного редактора определи какие речевые ошибки допущены в предложениях что нужно сделать что бы их исправить запиши
предложения в исправленном виде:
1.с этим быдным человеком случилась беда 2.издали доносилась печальная песня и своим печальным мативом навевалапечаль 3.тёмная глубина темного леса пугала путников которые которые в темнате боялись сбиться в пути 4.забавныерассказы забавного старика забавляли его внуков 5 .утки быстро перелетали с места на место, быстро махая своими быстрыми крыльями 6.среди пугливых животных самые пугливые - это пугливая лань и пугливый заяц.
2 года назад
Предмет: Русский язык, автор: таня1033
сочинить сказку про учебные принадлежности в путешествие
2 года назад
Предмет: Русский язык, автор: nastanastuna54
37 Read Barbata'letter and say what Barbara suggested to Jim is happy перевести
2 года назад
Предмет: Информатика, автор: 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.
Не могу найти, что именно не так, задание программа выполняет не верно
8 лет назад
Предмет: Українська мова, автор: Аноним
Реченя зі словосполученням очі колоти
8 лет назад