Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 16.10.2010
Сообщений: 51
1

В заданном массиве К(N) найти индексы элементов, которые кратны минимальному значению элемента массива

02.03.2011, 23:54. Показов 690. Ответов 3
Метки нет (Все метки)

В заданном массиве К(N) найти индексы элементов, которые кратны минимальному значению элемента массива.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.03.2011, 23:54
Ответы с готовыми решениями:

В заданном массиве К(N) найти индексы элементов, которые кратны минимальному значению элемента массива
В заданном массиве К(N) найти индексы элементов, которые кратны минимальному значению элемента...

В заданном массиве K(N) найти индексы элементов, которые кратны минимальному значению элемента массива
Очень срочно надо, помогите создать модуль пожалуйста : в заданном массиве K(N) найти индексы...

В полученном массиве найти индексы элементов, которые кратны минимальному значению элемента массива
Задан массив AX (N). Добавить массив С(К). Выполнить сортировку разделением. В полученном массиве...

В массиве найти индексы элементов, которые кратны минимальному значению элемента
В заданном массиве К(N) найти индексы элементов, которые кратны минимальному значению элемента...

3
382 / 330 / 159
Регистрация: 06.12.2010
Сообщений: 894
02.03.2011, 23:55 2
Ваш код?
0
0 / 0 / 0
Регистрация: 16.10.2010
Сообщений: 51
03.03.2011, 00:12  [ТС] 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
unit my_modul;
interface
  function max(a1,b1:integer):integer; 
implementation
  function max(a1,b1:integer):integer;
  begin
     max:=a1;
     if a1>b1 then max:=a1
     else max:=b1;
  end;
begin
end.
 
 
 
 
 
 
program kk;
uses crt,my_modul;
var
a1,b1,y:integer;
begin
writeln('Введите 2 числа');
readln(a1,b1);
y:=max(a1,b1);
writeln('max=',y);
end.
   что то как то так????
0
126 / 94 / 74
Регистрация: 18.01.2011
Сообщений: 227
03.03.2011, 00:16 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var a:array[1..100] of integer;  min,i,n:integer;
begin
write('Введите количество элементов массива = ');readln(n);
for i:=1 to n do
begin
   write('K[',i,'] = ');readln(a[i]);
   min:=a[i];
   end;
   for i:=1 to n do
     begin
       if a[i]<min then min:=a[i];
     end;
     write('Индексы: ');
       for i:=1 to n do
       begin
         if a[i] mod min = 0 then write(i,' ');
       end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.03.2011, 00:16

В массиве найти индексы элементов, которые кратны минимальному значению элемента
Подскажите где ошибки... чет не получается. Вот код программы: program UP5_1; const n = 10;...

В заданном массиве К(N) найти индексы элементов, которые кратны минимальному значению элемента массива.
В заданном массиве К(N) найти индексы элементов, которые кратны минимальному значению элемента...

Найти индексы элементов, кратные минимальному значению массива.
Народ, подскажите пожалуйста. Дано задание: задан массив К(N). Добавить массив С(В). Выполнить...

В целочисленном массиве S из к элементов заменить те элементы которые равны минимальному значению этого массива
1)В целочисленном массиве S из к элементов заменить те элементы которые равны минимальному значению...


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

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

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