|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
12.02.2009, 11:37 | #1 |
Пользователь
Регистрация: 07.12.2008
Сообщений: 11
|
Помогите решить 3 задачки, плиззз!!!
1) Даны натуральные p, q и последовательность целых чисел а1, ..., аn (p > q). В последовательности заменить на нуль все элементы, модуль которых при делении на p дает в остатке q.
2) В массиве из 25 вещественных чисел найти наименьший элемент и поменять его местами с первым элементом. Выполнить сортировку по убыванию между минимальным и первым элементом. 3) Дана матрица В. Для каждого столбца с четным номером вычислить и напечатать сумму квадратов элементов этого столб¬ца, а для каждого столбца с нечетным номером вычислить произ¬ведение элементов. Новый одномерный массив А, составленный по данным вычислениям, вывести в ячейки электронной таблицы. |
12.02.2009, 11:59 | #2 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
Код:
I'm learning to live...
|
|
12.02.2009, 12:16 | #3 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
2
Код:
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
12.02.2009, 12:23 | #4 |
Форумчанин
Регистрация: 05.02.2009
Сообщений: 324
|
program 1;
uses crt; var a:array[1..100] of integer; n,p,q:integer; begin crlscr; write('N<100 = '); readln(n); write('Q = '); readln(q); write('Введите Р больше Q = '); readln(p); if q>=p then begin writeln('Данные не отвечают условию задачи'); abort; end; writeln('Введите последовательность чисел'); for i:=1 to n do begin write('a[ ',i,' ]= '); readln(a[i]); end; writeln('Введённая последовательность'); for i:=1 to n do write(a[i]:3); writeln; for i:=1 to n do if abs(a[i]) mod p=q then a[i]:=0; writeln('Новая последовательность'); for i:=1 to n do write(a[i]:3); readln; end.
Тяжело быть бестолковым.....
|
12.02.2009, 12:26 | #5 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Dark_Spirit проверьте свою программу сначала(ошибки есть).
P.S. Эту задачу уже решили. Не стоит дублировать решения Закрыто. Название темы
Нормальное состояние техники - нерабочее, все остальное частный случай.
Последний раз редактировалось mihali4; 12.02.2009 в 13:33. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите плиззз решить задачку!!!! | Jereme | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 17.12.2008 22:14 |
ПОМОГИТЕ РЕШИТЬ ЗАДАЧКИ! | Ватрушка90 | Microsoft Office Excel | 5 | 04.12.2008 21:48 |