Developing.ru

Решите плиз задачу. Желательно за 5-10 мин:
Составить программу трёх этапов движения шара по бильярдному столу.

for i=1 to N
  'поиск максимума
  max=A[i,1]
  for j=2 to M: if A[i,j]>max then max=A[i,j]:next
  'нормализация
  for j=1 to M: A[i,j]=A[i,j]/max: next
next

Сначала ввод массива A[i,j] (пусть считается что i-строки, j-столбцы),
(надеюсь это не надо тут писать)
потом, собственно, нормализация:
[code]
for i=1 to N
'поиск максимума
max=A[i,1]
for j=2 to M: if A[i,j]>max then max=A[i,j]:next
'нормализация
for j=1 to M: A[i,j]=A[i,j]/max: next
next
[/code]
А потом вывод массива. Тоже надеюсь справитесь.

Помогите, пожалуйста, решить задачу на матрицу (QBasic или на Linux пргорамма Kate)
Выполнить обработку прямоугольной матрицы А, имеющей N строк и M столбцов.Нормировать элементы каждой строки по отношению к наибольшему элементу этой строки.

Пройтись в цикле от k до конца массива, сделать a[i]:=a[i+1]

Помогите, пожалуйста, решить задачу на массив (QBasic или на Linux пргорамма Kate)

Дан одномерный массив числовых значений, насчитывающий N элементов.Удалить из массива элемент с номером K.