Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Ded Makar
0 / 0 / 0
Регистрация: 26.11.2010
Сообщений: 28
1

Массивы

26.11.2010, 21:57. Просмотров 802. Ответов 2
Метки нет (Все метки)

Помогите плз с задачками на массивы.

1 Упорядочить по не увеличению ( не зростанню) массив, который имеет 10 целых чисел.

2 Дано действительную квадратную матрицу порядка M. Подсчитать сумму минимальных элементов
столбцов даной матрицы.

3 Дано действительную матрицу размером M×N. Найти произведение ненулевых самых больших
значений элементов её рядков.

Спасибо)
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.11.2010, 21:57
Ответы с готовыми решениями:

Даны массивы а и b. Получить новые массивы a и b, элементы которых вычисляются по правилу: ai=bi, bi= -ai
Даны массивы а и b, состоящие из n-элементов каждый. Получить новые массивы...

Массивы
В массиве A=(a1, а2, ..., аn) все элементы, равные нулю, поставить сразу по-...

Массивы
Дан массив размерностью n, элементы вводятся с помощью генератора случайных...

Массивы
1. Найти элементы в одномерном массиве равные 10 и вывести их индексы 2. В...

Массивы
Дан двумерный вещественный массив размерностью m на n. Получить новый массив...

2
ChameleoN
ТруЪ Одмин Всiя Руси
67 / 67 / 14
Регистрация: 20.11.2010
Сообщений: 288
26.11.2010, 22:11 2
юзай поиск! таких уже куча было задач
0
patricksmirnov
76 / 76 / 51
Регистрация: 28.02.2010
Сообщений: 159
26.11.2010, 23:23 3
Лучший ответ Сообщение было отмечено Ded Makar как решение

Решение

1 задача:
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
27
28
29
30
31
const n=10;
var a:array[1..n] of integer;
i,min,y:integer;
 
b:boolean;
begin
for i:=1 to n do begin
a[i]:=random(50)+1;
write(a[i]:4);
end;
{ñîðòèðîâêГ*}
repeat b:=true;
 
for i:=1 to n-1 do
begin
if a[i]<a[i+1] then
begin
y:=a[i];
a[i]:=a[i+1];
a[i+1]:=y;
b:=false;
end;
end;
until b;
{âûâîäèì îòñîðòèðîâГ*Г*Г*ûé Г¬Г*Г±Г±ГЁГў}
writeln;
write('Sortirovka :');
for i:=1 to n do
write(a[i]:4);
 
end.
Добавлено через 13 минут
задача 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
27
28
29
30
31
32
uses crt;
const n=100;
var m:integer;
a:array[1..n,1..n] of integer;
i,j,min,sum:integer;
Begin
write('ГЊ: ');
readln(m);
randomize;
for i:=1 to M do begin
for j:=1 to m do
  begin
  sum:=0;
  a[i,j]:=Random(10);
  write(a[i,j],' ');
end;
  writeln;
end;
  min:=a[1,1];
 
  for i:=1 to M do
    begin
      for j:=1 to M do
         begin
          if a[j,i]<min then min:=a[j,i];
    end;
    sum:=sum+min;
    min:=a[j,i];
    end;
 
writeln('summa=',sum);
End.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.11.2010, 23:23

Массивы
В некоторой стране имеется n городов, соединеных авиационными сообщениями. На...

Массивы
Добрый день! Помогите пожалуйста решить задачу с массивами, сама задача во...

Массивы
Здравствуйте. Нужно реализовать два массива. A - одномерный массив. B -...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru