Консультация № 138582
29.05.2008, 21:21
0.00 руб.
0 1 1
Здраствуйте уважаемые эксперты. Очень нужна ваша помощь.
Нужно решить две задачи.
Задача 1

Построить семейство графиков cos nx где n вводит пользователь.

Задача 2

Сформировать двумерный массив где найти минимальный элемент в каждом столбце.

Заранее огромное спасибо!

Обсуждение

давно
Профессор
401888
1232
31.05.2008, 19:47
общий
это ответ
Здравствуйте, Marina korolyova!
Решение в приложении. Пояснения минимальны, т.к. просто нечего объяснять.

Приложение:
uses crt;var a:array[1..20,1..20]of integer; n,m,i,j,min:integer;beginclrscr;write(‘Kolichestvo strok= ‘);readln(n);write(‘Kolichestvo stolbcov= ‘);readln(m);randomize;Writeln(‘Matrica:‘); {создаем матрицу}for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(21)-10; write(a[i,j]:4); end; writeln; end;readln;for j:=1 to m do begin min:=a[1,j]; {за мин примем первый элемент столбца} for i:=1 to n do begin if a[i,j]<min then begin min:=a[i,j]; {находим мин в столбце} end; end; writeln(‘min elem v stolbce ‘,j,‘=‘,min:3); end;readlnend.
Форма ответа