Форум программистов
 
О проблемах с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

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

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


Ответ
 
Опции темы
Старый 28.03.2013, 22:41   #1
Alekzinder
Пользователь
 
Регистрация: 05.05.2012
Сообщений: 24
По умолчанию исправить код

1)Найти наименьшее общее кратное всех чисел, содержащихся в за-
данной последовательности натуральных чисел.
Код:
program q;
var a:array [1..5] of integer;
i,min:integer;
begin
for i:=1 to 5 do begin
write ('vvedite massiv a[',i,']');
readln(a[i]);
end;
min:=a[1];
if a[i]<min then min:=a[i];
begin
for i:=1 to 5 do
if a[i] div min then
write (min);
end;
end.
2)Подсчитать количество столбцов заданной матрицы, которые со-
ставлены из попарно различных чисел.
3)Найти наименьшее общее кратное всех чисел, содержащихся в за-
данной последовательности натуральных чисел.
4)Упорядочить столбцы по неубыванию первых элементов.
5)Var T : array[1..n, 1..n] of (V, H, P, X);
T – таблица результатов шахматного турнира, в котором участво-вало n шахматистов, T[i, j] = V, если i участник выиграл у j (при этом T[j, i] = P), T[i, j] = H, если i и j участники сыграли вничью, T[i, i] = X. Считая, что за выигрыш 2, за ничью 1, за проигрыш 0 очков, выдать на экран номера участников в порядке невозраста-ния набранных очков.
6)Характеристикой строки целочисленной матрицы назовем сумму ее положительных четных элементов. Переставляя строки матри-цы, расположить их в соответствии с ростом характеристик.
7)Используя алгоритм «решето Эратосфена», найти все четверки простых чисел до 500000, принадлежащих одному десятку.
8)Заданы целочисленная симметричная матрица А и вектор b раз-мерностью n. Найти вектор с = A b.

Последний раз редактировалось Stilet; 29.03.2013 в 08:19.
Alekzinder вне форума Ответить с цитированием
Ответ
Купить рекламу на форуме от 7000 рублей в месяц



Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Исправить код саша40 Мультимедиа в Delphi 7 06.11.2012 21:01
исправить код seed92 Помощь студентам 0 21.02.2011 16:02
Исправить код DirtyBASS Помощь студентам 2 22.09.2009 09:20
Исправить код IndividBezLica Помощь студентам 0 02.06.2009 08:41
Помогите исправить код lider24816 Помощь студентам 2 24.05.2009 17:12


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Скидки на курсы GeekBrains 40%, выбирайте программу для себя