4 / 4 / 0
Регистрация: 02.06.2011
Сообщений: 63
1

Найти НОД всех элементов массива.

05.06.2011, 08:36. Показов 2617. Ответов 2
Метки нет (Все метки)

Массивы

1)Сформировать случайным образом целочисленный одномерный массив из 10 натуральных двузначных чисел. Найти НОД всех элементов массива.

2)Отсортировать одномерный массив методом вставки.

3)Сформировать случайным образом двумерный массив и транспонировать получившуюся матрицу.

Заранее спасибо добрым людям.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.06.2011, 08:36
Ответы с готовыми решениями:

Найти НОД максимального и минимального элементов массива
пользователь вводит размерность и элементы одномерного массива натуральных чисел. найти нод...

Найти сумму всех элементов массива целых чисел, которые меньше среднего арифметического элементов массива
Помогите пожалуйста найти в чем ошибка? Пишет что арифметическое переполнение! Задание: Найти сумму...

Найти сумму всех элементов массива целых чисел, которые меньше среднего арифметического элементов массива.
Найти сумму всех элементов массива целых чисел, которые меньше среднего арифметического элементов...

Даны n натуральных чисел. Найти их наибольший общий делитель, учитывая что НОД(а,б,с)=НОД(НОД(а,б)с)
даны n натуральных чисел. Найти их наибольший общий делитель, учитывая, что НОД(a,b,c) = НОД...

2
magirus
05.06.2011, 08:40
  #2
 Комментарий модератора 
пока ждешь, когда проснутся программеры, сходи прочитай правила оформления тем (если что, это в правилах форума.)
1
Почетный модератор
64073 / 47484 / 32733
Регистрация: 18.05.2008
Сообщений: 115,185
05.06.2011, 10:18 3
Лучший ответ Сообщение было отмечено ANAKIN как решение

Решение

Цитата Сообщение от ANAKIN Посмотреть сообщение
1)Сформировать случайным образом
Идиотское условие. Практически всегда будет Нод=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
uses crt;
const n=10;
function Nod(a,b:integer):integer;{определение НОД двух чисел}
begin
 while a<>b do
 if a>b then a:=a-b else b:=b-a;
 Nod:=a;
end;
var a:array[1..n] of integer;
    i:byte;
    k:integer;
begin
clrscr;
randomize;
writeln('Массив:');
for i:=1 to n do
 begin
  a[i]:=random(20)+10;
  write(a[i],' ');
 end;
writeln;
k:=Nod(a[1],a[2]);
for i:=3 to n do k:=nod(k,a[i]);
writeln('Общий НОД всех элементов=',k);
readln
end.
Добавлено через 14 минут
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
uses crt;
var a:array [1..100]of integer;
    n,i,j,k,x:integer;
begin
clrscr;
randomize;
write('n=');readln(n);
writeln('Исходный массив:');
for i:=1 to n do
   begin
     a[i]:=random(200);;
       write(a[i],' ');
   end;
writeln;
for i:=2 to n do
 begin
  x:=a[i];
  j:=1;
  while x>a[j] do inc(j);
  for k:=i-1 downto j do a[k+1]:= a[k];
  a[j]:=x;
 end;
writeln('Отсортированный массив:');
for i:=1 to n do
write(a[i],' ');
readln
end.
Добавлено через 7 минут
3.
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax]of integer;
    i,j,n,m:integer;
{процедура транспонирования матрицы}
procedure TrMatrix(x,y:integer);
var i,j,b:integer;
begin
for i:=1 to x do
for j:=i to y do
 begin
  b:=a[i,j];
  a[i,j]:=a[j,i];
  a[j,i]:=b;
 end;
end;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n)
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(100);
    write(a[i,j]:4);
   end;
  writeln;
 end;
{вызов процедуры транспонирования матрицы}
if n>m then TrMatrix(m,n){если строк больше чем столбцов}
else TrMatrix(n,m);{если поровну или столбцов больше}
writeln;
writeln('Транспонированная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.06.2011, 10:18

Найти сумму всех положительных и произведение всех отрицательных элементов двумерного массива
задачка №1. найти сумму всех положительных и произведение всех отрицательных элементов двумерного...

Найти минимальный и максимальный элемент массива.Найти сумму всех элементов массива
Проверьте пожалуйста программу. Program lb4; var i,j,k,l,m,n,v:integer; mass:array of real;...

Найти R=(Х+Y)/Z,где Х-сумма всех элементов массива А(14), Y-сумма всех элементов массива В(9),Z-сумма всех элементов массива С(11)
Заданы три массива:А(5),В(8) и С(12). Найти R=(Х+Y)/Z,где Х-сумма всех элементов массива А(14),...

Найти сумму всех элементов массива, кроме элементов с номерами от K до L включительно
Дан массив размера N и целые числа K и L (1&lt;K&lt;=L&lt;=N). Найти сумму всех элементов массива, кроме...


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

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

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