Подсчитать сумму каждого столбца матрицы и найти минимальное значение среди полученных сумм и Программа печатающую фамилию ученика

[danil663]

1. Дана действительная матрица размером n x m (n,m <10). Подсчитать сумму каждого столбца матрицы и найти минимальное значение среди полученных сумм. Заменить нулями значение элементов матрицы, рассположенные в первом столбце и распечатать полученную матрицу. Размер матрицы и ее элементы вводятся с клавиатуры. Оформить ввод и вывод матрицы.
2. Заданы фамилия , имя , отчество учащегося, разделёнными пробелами. Напишите программу печатающую фамилию ученика и его инициалы.

[VIK_aka_TOR]

сборник заданий тут делать собрались?

[danil663]

Сообщение от VIK_aka_TOR

сборник заданий тут делать собрались?

да, зачем такое вообще писать в теме

[Serge_Bliznykov]

Сообщение от danil663

да, зачем такое вообще писать в теме

Вы не поняли смысл поста VIK_aka_TOR'а.
Он имел в виду, что Вы здесь на форуме будете выкладывать список задач, чтобы другие поколения студентов в процессе своего обучения могли воспользоваться вашим учебным материалом в качестве тренировки.

Ведь Вы свои наработки (что сделали) не показываете, помощи у форумчан не просите.
Выложили текст заданий и всё.

А может Вы раздел перепутали и Вам нужен раздел Фриланс (это где ваши задания решают за Вас, но этот труд нужно фрилансеру оплатить)..
Или Вы на что-то надеетесь?..

[danil663]

Сообщение от Serge_Bliznykov

Вы не поняли смысл поста VIK_aka_TOR'а.
Он имел в виду, что Вы здесь на форуме будете выкладывать список задач, чтобы другие поколения студентов в процессе своего обучения могли воспользоваться вашим учебным материалом в качестве тренировки.

Ведь Вы свои наработки (что сделали) не показываете, помощи у форумчан не просите.
Выложили текст заданий и всё.

А может Вы раздел перепутали и Вам нужен раздел Фриланс (это где ваши задания решают за Вас, но этот труд нужно фрилансеру оплатить)..
Или Вы на что-то надеетесь?..

на других форумах решают бесплатно

[eoln]

Мы не подвержены стадному чувству, поэтому здесь бесплатно помогают, а не решают за других.

[Вадим Мошев]

Сообщение от danil663

на других форумах решают бесплатно

Почему тогда вы НЕ обратились на другие форумы, где решают бесплатно? Да и что это за форумы? Майл-ответы что ли?

[Mad_Cat]

Заданы фамилия , имя , отчество учащегося, разделёнными пробелами. Напишите программу печатающую фамилию ученика и его инициалы.

var s:string;
begin
s:='Ivanov Ivan Ivanovich';
write(copy(s,1,pos(' ',s)-1));
delete(s,1,pos(' ',s));
write(' ',s[1]);
write (' ',s[pos(' ',s)+1]);
end.

Ivanov I I

проверку корректности ввода и количества пробелов между словами, а также их наличие/отсутствие в начале строки,если нужно, допишите сами!

(*Дана действительная матрица размером n x m (n,m <10).
 Подсчитать сумму каждого столбца матрицы и найти минимальное значение среди полученных сумм. 
Заменить нулями значение элементов матрицы, рассположенные в первом столбце и распечатать полученную матрицу. 
Размер матрицы и ее элементы вводятся с клавиатуры. 
Оформить ввод и вывод матрицы.*)
var A:array[1..10,1..10] of real;
i,j,n,m:integer; s,sm:real;
begin
readln(n,m);

for i:=1 to n do
for j:=1 to m do
readln(a[i,j]);
for i:=1 to n do begin
for j:=1 to m do
write(a[i,j]:6:3);
writeln;
end;
sm:=0;
for i:=1 to n do
  sm:=sm+a[i,1];
writeln('s[1]=',sm);
for j:=2 to m do
begin s:=0;
for i:=1 to n do
s:=s+a[i,j];
writeln('s[',j,']=',s);
if s<sm then sm:=s;
end;
writeln('smin=',sm);
for i:=1 to n do
  a[i,1]:=0;
for i:=1 to n do begin
for j:=1 to m do
write(a[i,j]:6:3);
writeln;
end;
end.

3
3
1
2
3
4
5
6
7
8
9
1.000 2.000 3.000
4.000 5.000 6.000
7.000 8.000 9.000
s[1]=12
s[2]=15
s[3]=18
smin=12
0.000 2.000 3.000
0.000 5.000 6.000
0.000 8.000 9.000

[danil663]

Сообщение от Mad_Cat

var s:string;
begin
s:='Ivanov Ivan Ivanovich';
write(copy(s,1,pos(' ',s)-1));
delete(s,1,pos(' ',s));
write(' ',s[1]);
write (' ',s[pos(' ',s)+1]);
end.

проверку корректности ввода и количества пробелов между словами, а также их наличие/отсутствие в начале строки,если нужно, допишите сами!

(*Дана действительная матрица размером n x m (n,m <10).
 Подсчитать сумму каждого столбца матрицы и найти минимальное значение среди полученных сумм. 
Заменить нулями значение элементов матрицы, рассположенные в первом столбце и распечатать полученную матрицу. 
Размер матрицы и ее элементы вводятся с клавиатуры. 
Оформить ввод и вывод матрицы.*)
var A:array[1..10,1..10] of real;
i,j,n,m:integer; s,sm:real;
begin
readln(n,m);

for i:=1 to n do
for j:=1 to m do
readln(a[i,j]);
for i:=1 to n do begin
for j:=1 to m do
write(a[i,j]:6:3);
writeln;
end;
sm:=0;
for i:=1 to n do
  sm:=sm+a[i,1];
writeln('s[1]=',sm);
for j:=2 to m do
begin s:=0;
for i:=1 to n do
s:=s+a[i,j];
writeln('s[',j,']=',s);
if s<sm then sm:=s;
end;
writeln('smin=',sm);
for i:=1 to n do
  a[i,1]:=0;
for i:=1 to n do begin
for j:=1 to m do
write(a[i,j]:6:3);
writeln;
end;
end.

спасибо большое, правда 2-ю сам уже решил

[Mad_Cat]

нзчт!

правда 2-ю сам уже решил

видимо с помощью

на других форумах

Удачи!!!