Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.11.2008, 18:05   #1
AlexLAN
 
Аватар для AlexLAN
 
Регистрация: 15.11.2008
Сообщений: 9
По умолчанию Массивы

Условия задачи:
Сформировать матрицу размером NxK из случайных чисел. (NxK вводяться с клавиатуры).
Предусмотреть обработку ошибки при вводе неверных значений NxK.
вывести массив на экран.
Сформировать одномерный массив, состоящий из элементов матрицы больших R.

Вообщем я почти решил задачу но не получаеться создать одномерный массив из элементов больших R.
Вот то что я сделал
Код:
type
arr = array[1..100,1..100] of integer;
arr2 = array [1..100] of integer;
var
a:arr;
b:arr2;
i,j,N,K,R : Integer;
Begin
writeln ('Vvedite N');
readln(N);
WriteLn('Vvedite K');
readln(K);
if (N<0) and (K<0) then
Writeln ('ERROR');
For i:=1 To N Do
For j:=1 To K Do
a[i,j]:=Random(51);
for i:=1 to N do
begin
for j:=1 to N do Write(a[i,j]:5);
writeln;
end;
writeln ('Vvedite R');
readln (R);
for i:= 1 to N do
begin
b[i]:=a[i,1];
 for j:= 1 to K do
 if a[i,j]>R then b[i]:=a[i,j];{вот здесь программа не работает}
 end;
readln;
end.
Помогите пожалуйста найти ошибку!

Ой! Я сам все сделал! Тему можно удалить!
Есть такие люди которые пока не наступит критический момент - ничего делать не будут. Но когда он наступает трудоголизм просыпаться слишком сильно.

Последний раз редактировалось AlexLAN; 26.11.2008 в 18:13.
AlexLAN вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Представить математическую запись (+описание решения) фрагмента программы и вычислить значение переменной (Kate) Помощь студентам 7 18.10.2011 16:52
Массивы Mookapek Паскаль, Turbo Pascal, PascalABC.NET 9 19.04.2011 22:43
массивы ShenDy Общие вопросы C/C++ 4 17.04.2008 00:01