сервис вопросов и ответовПомогите решить задачку (Паскаль) Дана матрица B(4,4) 1) Найти произведение положительных элементов среди элеметов
10-11 класс|
|
рассположенных выше побочной диагонали матрицы B.
2) Найти минимальный элемент во втором столбце матрицы B.
3) Поменять местами найденный минимальный эелемент и значение третьего элемента в четвертой строке.
Gelya480
06 апр. 2017 г., 5:13:01 (7 лет назад)
Anfisa005
06 апр. 2017 г., 7:10:38 (7 лет назад)
uses crt;
const n=4;
var b:array[1..n,1..n] of integer;
i,j,pr,k,t,min:integer;
begin
randomize;
pr:=1;
for i:=1 to n do
for j:=1 to n do
b[i,j]:=random(100)-50;
for i:=1 to n do
begin
for j:=1 to n do
write(b[i,j]:3);
writeln;
end;
writeln;
k:=1;
t:=3;
repeat
for i:=k to k do
for j:=1 to t do
if b[i,j]>0 then pr:=b[i,j]*pr;
inc(k);
t:=t-1;
until k=4;
writeln(pr);
min:=50;
for i:=1 to n do
for j:=2 to 2 do
if b[i,j]<min then begin min:=b[i,j]; k:=i; t:=j; end;
writeln(min);
writeln;
b[4,3]:=b[4,3]+b[k,t];
b[k,t]:=b[4,3]-b[k,t];
b[4,3]:=b[4,3]-b[k,t];
for i:=1 to n do
begin
for j:=1 to n do
write(b[i,j]:3);
writeln;
end;
writeln;
end.
Ответить
Другие вопросы из категории
программа на delphi
Разработать програму суммы N чисел пока сумма не превысит значение M.
В санатории на берегу моря отдыхают отец О, мать М, сын С и две дочери Д1, Д2. До завтрака члены семьи часто купаются в море, причем известно, что
1) Если отец утром отправляется купаться, то с ним обязательно идут купаться мать и сын.
2) Если сын идет купаться, то его сестра Д1 отправляется вместе с ним.
3) Вторая дочь Д2 купается тогда и только тогда, когда купается мать
4) Каждое утро купается, по крайней мере, один из родителей.
Если в воскресенье утром купалась лишь одна из дочерей, то кто из членов семьи в это утро ходил на море?
Читайте также
люди помогите решить задачку(паскаль) очень прошу
оценка за четверть решается моя
Помогите решить задачку (Паскаль)
Задача №1
U= max{1-cos(Px2)-y; tg(3√xy2-1/3√x)} если x/y2<1;
sin(xy-x2-y2), если x/y2≥1
При 1≤x≤3, hx=1.3
2≤y≤4, hy=1.5
Задача №2
U= min{e2*cos(Px2)-y;
ctg(xy2-1/3√x)} если x/y<1;
xy-x2-y2 если x/y≥1
При 1≤x≤3 hx=1.3
2≤y≤4 hx=1.5
Лучше просто откройте изображение , там написано более понятно.
№1 Дана действительная квадратная матрица порядка n. Найти произведение четных элементов.
№2 В данном одномерном массиве Х[1..n] найти сумму отрицательных элементов , кратных 7.
Вы находитесь на странице вопроса "Помогите решить задачку (Паскаль) Дана матрица B(4,4) 1) Найти произведение положительных элементов среди элеметов", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.