Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 137571
19.05.2008, 22:29
0.00 руб.
0 2 2
Компьютеры Программирование
1. В заданном массиве K(N,N) найдите суммы элементов в каждой строке и столбце. Сформируйте одномерные массивы, содержащие полученные суммы, и отсортируйте их по возрастанию.
2. Элемент матрицы назовем седловой точкой, если он является наименьшим в своей строке и одновременно наибольшим в своем столбце или, наоборот, является наибольшим в своей строке и наименьшим в своем столбце. Для заданной целой матрицы размером п  m напечатать индексы всех ее седловых точек.
3. Разместите во множестве 10 случайных чисел в пределах от 0 до 20. Выведите элементы построенного множества.
4. Напечатать простые числа от 2 до 100.

Обсуждение

Неизвестный
20.05.2008, 09:32
общий
это ответ
Здравствуйте, XaciH!
Четвертая программа в приложении.

Удачи!

Приложение:
function is_simple(p:integer):boolean;{определяет, является ли число простым}var i : integer; res : boolean;begin i := 2; res := true; while res and (i < p) do begin res := p mod i <> 0; inc(i); end; is_simple := res;end;var i : integer;begin i := 2; while i <= 100 do begin if is_simple(i) then WriteLn(i); inc(i); end; ReadLn;end.
давно
puporev
Профессор
401888
1232
20.05.2008, 19:48
общий
это ответ
Здравствуйте, XaciH!
Решение первой задачи в приложении.

Приложение:
Задача 1.uses crt;var a:array[1..20,1..20]of integer; b,c:array[1..20]of integer; n,i,j,sum,x:integer;beginclrscr;write(‘n= ‘);readln(n);randomize;Writeln(‘Matrica:‘);{создаем матрицу и одновременно считаем сумму в сироках}for i:=1 to n do begin sum:=0; for j:=1 to n do begin a[i,j]:=random(21)-10; sum:=sum+a[i,j]; write(a[i,j]:4); end; b[i]:=sum; {записываем их в массив} writeln; end;writeln;writeln(‘Massiv summ po strokam:‘);{выводим на экран}for i:=1 to n dowrite(b[i],‘ ‘);writeln;for j:=1 to n do {считаем суммы в столбцах} begin sum:=0; for i:=1 to n do begin sum:=sum+a[i,j]; end; c[j]:=sum; {записываем в массив} end;writeln;writeln(‘Massiv summ po stolbcam:‘); {выводим на экран}for i:=1 to n dowrite(c[i],‘ ‘);writeln;for i:=1 to n-1 do {сортируем оба массива по возрастанию}for j:=1 to n-1 do begin if b[j]>b[j+1] then begin x:=b[j]; b[j]:=b[j+1]; b[j+1]:=x; end; if c[j]>c[j+1] then begin x:=c[j]; c[j]:=c[j+1]; c[j+1]:=x; end; end;writeln;writeln(‘Otsortirovannyj massiv po strokam:‘);{выводим их на экран}for i:=1 to n dowrite(b[i],‘ ‘);writeln;writeln;writeln(‘Otsortirovannyj massiv po stolbcam:‘);for i:=1 to n dowrite(c[i],‘ ‘);readlnend.
Форма ответа