Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 16.12.2009
Сообщений: 7
1

Проги

16.12.2009, 10:02. Показов 1081. Ответов 1
Метки нет (Все метки)

Ребята помогите решить две задачки я уже мозги сломал, вот условия задач:

1. Даны натуральное n, действительные числа a1, ... , an. Все элементы массива с чётными номерами, предшествующие первому по порядку элементу со значениями max (a1, ... , an) помножить на max (a1, ... , an)

2. Дана целочисленная матрица размером n*m. найти максимальный по модулю элемент среди отрицательных элементов нечётных столбцов.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.12.2009, 10:02
Ответы с готовыми решениями:

Не компелирует проги
Слушайте други мои, как вы думаете что за фигня у меня с паскалем: короче тема такая я пушу себе...

Текст проги
Ребят, подскажите в чём ошибка: Квадраты некоторых трехзначных чисел оканчиваются тремя цифрами,...

Две проги с масивами
1) Вичислить суму положительных элементов и заменить ею елементами равными = 0 2)Создать масив " У...

Напишите 2 проги с циклами
82. Дано действительное число x. Вычислить (x-2)(x-4)(x-8)... (x-64) -------------------------....

1
4339 / 1471 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
16.12.2009, 11:55 2
Лучший ответ Сообщение было отмечено Monst как решение

Решение

2)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
uses crt;
const n=4; m=5;
i,j,max:integer;
a:array[1..n,1..m]of integer;
 
begin
 clrscr;
 randomize;
 for i:=1 to n do
 begin
  for j:=1 to m do 
  begin
   a[i,j]:=-30+random(100);
   write(a[i,j]:4);
  end;
  writeln;
 end;
 
 max:=-1;
 for i:=1 to n do
 for j:=1 to m do
 if (abs(a[i,j])>max) and (a[i,j]<0) and (j mod 2=1) then max:=abs(a[i,j]);
 
 writeln('MAX=',max);
 readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.12.2009, 11:55

Программисты объясните проги
Нужно для отчета!!! Пожалуйста...... Заранее спосибо! (1) program D__Z; uses crt; var ...

Доработка программы по определению возраста
program Vozzrast; {$APPTYPE CONSOLE} uses SysUtils; var y, m, d, yy, mm, dd, god, month,...

короче 2 проги, суть внутри...
помогите решить проги 18 сделал 2 не могу: 1. На плоскости заданы множество точек A и множество...

предел функции - трудности с составлением проги
помогите пожалуйста составить программу, вычисляющую предел функции tg(d)^tg(2d) при (d-&gt;Пи/4) с...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru