Вопрос по информатике:
6 вариант. Даны две квадратные матрицы А и В размером 3х3. Требуется найти С= В – А.
Дана вещественная матрица А(N.M). Составить программу замены всех отрицательных элементов матрицы на элемент, имеющий максимальное значение.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 24.12.2017 13:20
- Информатика
- remove_red_eye 16612
- thumb_up 5
Ответы и объяснения 1
1)var a:array[1..3,1..3] of integer;
b:array[1..3,1..3] of integer;
c:array[1..3,1..3] of integer;
i,j:integer;
begin;
writeln('A array:');
for i:=1 to 3 do
begin;
writeln;
for j:=1 to 3 do
begin;
a[i,j]:=random(-10,10);
write(a[i,j]:4);
end;
end;
writeln;
writeln('B array:');
for i:=1 to 3 do
begin;
writeln;
for j:=1 to 3 do
begin;
b[i,j]:=random(-10,10);
write(b[i,j]:4);
end;
end;
writeln;
writeln('C array:');
for i:=1 to 3 do
begin;
writeln;
for j:=1 to 3 do
begin;
c[i,j]:=b[i,j]-a[i,j];
write(c[i,j]:4);
end;
end;
end.
2)var a:array of array of real;
i,j,n,m:integer;
max:real;
begin;
randomize;
max:=-2147483648;
readln(n);
readln(m);
setlength(a,n+1);
for i:=1 to n do
setlength(a[i],m+1);
writeln('A array:');
for i:=1 to n do
begin;
writeln;
for j:=1 to m do
begin;
a[i,j]:=random(-10,10);
if max write(a[i,j]:4);
end;
end;
for i:=1 to n do
for j:=1 to m do
if a[i,j]<0 then a[i,j]:=max;
writeln;
writeln('Final array:');
for i:=1 to n do
begin;
writeln;
for j:=1 to m do
write(a[i,j]:4);
end;
end.
- 25.12.2017 00:42
- thumb_up 38
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.