исправте задачу

[Екатерина А.]

DSC06331.JPG вариант номер 23
задача не выводится на экран ,не могу понять где ошибка
uses crt;
const m=10;k=5;
var i,j:integer;
a,b:array[1..m,1..k] of integer;
c:array[1..k] of integer;
flag:boolean;
begin
randomize;
clrscr;
for i:=1 to m do
begin
for j:=1 to k do
begin
a[i,j]:=random(10);
write(a[i,j],' ');
end;
writeln;
end;
writeln('============');
for i:=1 to m do
begin
for j:=1 to k do
begin
b[i,j]:=random(3);
write(b[i,j],' ');
end;
writeln;
end;
writeln('============');
for j:=1 to k do
begin
flag:=true;
c[j]:=0;
for i:=1 to m do
if a[i,j]<b[i,j] then flag:=false;
if flag then
for i:=1 to m do
c[j]:=c[j]+a[i,j]+b[i,j];
end;
writeln;
for i:=1 to k do
write(c[i],' ');
end.

[capta1n]

Здравствуйте, Катенька :D На самом деле все хорошо выводится, просто после запуска RUN паскаль снова Вас возвращает в среду редактирования - он не оставляет Вас в терминале =) Чтобы снова попасть в терминал, надо после выполнения Вами программы через редактор (синий экран) =) тобишь после RUN (Ctrl+F9) нажать Alt+F5 чтобы он вас снова вернул =) и все будет хорошо - вы увидете свои результаты =) они там есть - я проверял =)
Есть еще один способ - вы можете в самом конце программы написать между write(c[i],' '); и end. оператор READLN, чтобы он не выбрасывал вас снова в редактор, а оставался в терминале (черный экран) до тех пор, пока вы не нажмете ENTER =) Удачи! =)

[Екатерина А.]

спасибо ,большое .Вы меня спасли :-*

[capta1n]

:D обращайтесь :-*

[Екатерина А.]

а не могли бы мне помочь еще с одной задачкой
Получить массив X1,X2,.,Xn по правилу :Xi=1,если элемент Aij больше каждого из элементов i-й строки матрицы , иначе Xi=0.Найти также сумму элементов матрицы

[capta1n]

я так понял, что матрица дана - то есть в принципе ее можно создать, а потом с ней колдовать вашу задачу xD

[capta1n]

просто мне немного условие непонятно - получается мы ищем максимальный элеент матрицы и, если он существует, записываем с элемент нового массива единицу, иначе (я даже не представляю, как может быть иначе, ибо всегда присутствует максимальный и минимальный элемент, за исключением случаев, когда некоторые элементы равны) мы записываем ноль

[Екатерина А.]

Спасибо большое за помощь,вы мне очень помогли я все сдала....урааааа:-*

[capta1n]

так я ж даже последнюю задачу Вам не написал , да вроде почти и не помог;но все равно, пожалуйста; честно, Вы сделали все сами =) просто подсказал Вам насчет паскаля: то что чтобы вернуться в терминал, надо нажать Alt+F5 =)

[Екатерина А.]

все равно вы мне очень помогли