Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.06.2014, 22:26   #1
Kontinent
Новичок
Джуниор
 
Регистрация: 25.06.2014
Сообщений: 3
Печаль решение задач в Pascal ABC

Дан массив Q=[ q [i, j], i=1,10; j=1,10 ]
(элементы выбираются случайным образом):
1. Найти количество положительных и количество отрицательных элементов.
2. Определить сумму элементов, стоящих в четных позициях 3 строки.
3. Найти min-элемент главной диагонали и сложить его с min-элемент побочной диагонали.
4. Упорядочить массив по не убыванию элементов 9 столбца.
5. Найти max-положительный элемент в 3 строке и поставить его на последнее место.
6. Определить, является ли натуральное число N степень числа 5 или нет.
7. С клавиатуры вводится текст. Слова разделяются пробелом. Ввод текста прекращается после нажатия на клавиатуре точки. Посчитайте количество слов в тексте.


Помогите пожалуйста в решении. Если не сдам, то отчислят =(
Kontinent вне форума Ответить с цитированием
Старый 25.06.2014, 23:10   #2
XE5
Заблокирован
 
Регистрация: 02.03.2014
Сообщений: 439
По умолчанию

Цитата:
Если не сдам, то отчислят
От того что ты сдашь чужое решение, толку будет не больше. Зато в стране станет на одного недоспециалиста больше.
XE5 вне форума Ответить с цитированием
Старый 26.06.2014, 14:23   #3
Bugrimov
C/C++, Java
Участник клуба
 
Аватар для Bugrimov
 
Регистрация: 28.03.2012
Сообщений: 1,680
По умолчанию

Я так понимаю это трехмерный массив И в чем затруднение... Задачи вроде не сложные. Покажите наработки.
"Keep it simple" - придерживайтесь простоты!
Уильям Оккам - "Не следует множить сущее без необходимости"
Сложность - враг простоты и удобства!
Bugrimov вне форума Ответить с цитированием
Старый 27.06.2014, 11:51   #4
Kontinent
Новичок
Джуниор
 
Регистрация: 25.06.2014
Сообщений: 3
По умолчанию

Цитата:
Сообщение от Bugrimov Посмотреть сообщение
Я так понимаю это трехмерный массив И в чем затруднение... Задачи вроде не сложные. Покажите наработки.
Код:
var
Q: array[1..10,1..10] of integer;
i,j,k:integer;
begin
randomize;
for i:=1 to 10 do begin
for j:=1 to 10 do begin
Q[i,j]:=random(50)-25;
write(Q[i,j]:4);
end;
writeln;
end;
k:=0;
for i:=1 to 10 do
for j:=1 to 10 do 
if Q[i,j]>0 then 
inc(k);
writeln('Количество положительных элементов: ', k);
k:=0;
for i:=1 to 10 do
for j:=1 to 10 do 
if Q[i,j]<0 then  
inc(k);
writeln('Количество отрицательных элементов: ', k); 
end.


var
q: array[1..10,1..10] of integer;
i,j,s:integer;
begin
randomize;
for i:=1 to 10 do begin
for j:=1 to 10 do begin
Q[i,j]:=random(50)-25;
write(q[i,j]:4);
end;
writeln;
end;
S:=0;
for i:=3 to 3 do
for j:=1 to 10 do
if j mod 2=0 then
S:=S+Q[i,j];
writeln('Количество суммы элементов: ', s);
end.
Вот как бы первые две задачи и они вроде работают. Но с остальным пока туговато. За полтора года забыл даже все малое из того, что я знал)

Уже даже лучше) осталось только 6 и 7 задание)

Последний раз редактировалось Stilet; 27.06.2014 в 20:21.
Kontinent вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Pascal ABC (Решение задач) Konteeks Помощь студентам 8 18.07.2013 22:34
Решение задач с массивами в Pascal ABC Стас11 Помощь студентам 1 24.05.2013 18:15
Задачи на решение Pascal abc Tecka Фриланс 9 18.12.2012 22:20
Решение уравнений(задач) в Pascal ABC GhoosTer Помощь студентам 0 22.10.2012 12:12
Решение задач в PASCAL ABC canter Помощь студентам 2 11.03.2012 22:03