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

Найдите такое число k, что k-е элементы массивов наименее отличались бы друг от друга

28.10.2013, 02:08. Просмотров 1118. Ответов 2
Метки нет (Все метки)


помогите пожалуйста))
*Даны два одномерных массива (AN и BN), состоящие из одинакового количества элементов. Найдите такое число k, что k-е элементы наименее отличались бы друг от друга.
Замечание. Результаты выведите на экран.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.10.2013, 02:08
Ответы с готовыми решениями:

Найдите наименьшее x такое, что числа 2*x, 4*x можно получить друг из друга перестановкой цифр
Задание: Число 125874 и результат умножения его на 2 — 251748 можно получить друг из друга...

Найти элементы массива наименее отличающиеся друг от друга
Доброго времени суток, помогите пожалуйста реализовать программу: Дан целочисленный массив из 30...

Авары и византийцы. Уровень их развития. Чем они отличались друг от друга
Представители уральской группы языков там (в Степи) почти никогда не жили. Исключение - венгры. Но...

Найти N первых пар простых чисел, которые отличались бы друг от друга на 2
Не могу понять, почему не делается проверка числа на простоту. #include "StdAfx.h" #include...

__________________
Помогаю в написании курсовых работ и дипломов здесь.
2
491 / 371 / 208
Регистрация: 28.07.2011
Сообщений: 2,093
28.10.2013, 15:09 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
33
34
35
36
37
uses crt;
const n=10;
var a,b:array [1..n] of integer;
minrazn,nminrazn,i,razn:integer;
begin
clrscr;
randomize;
for i:=1 to n do
begin
        a[i]:=random(100);
        b[i]:=random(100);
end;
writeln('Massiv A:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln('Massiv B:');
for i:=1 to n do
write(b[i],' ');
writeln;
writeln('Raznici elementov:');
minrazn:=maxint;
nminrazn:=1;
for i:=1 to n do
begin
        razn:=abs(a[i]-b[i]);
        write(razn,' ');
        if (razn<=minrazn) then
        begin
                minrazn:=razn;
                nminrazn:=i;
        end;
end;
writeln;
writeln('Min raznica = ',minrazn,' mezhdy ',i,'-timi elementami');
readkey;
end.
1
0 / 0 / 0
Регистрация: 10.10.2013
Сообщений: 15
28.10.2013, 20:13  [ТС] 3
спасибо за ответ))
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.10.2013, 20:13

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь или здесь.

Как в PHP отделить элементы друг от друга, чтобы не ругались друг на друга?
&lt;?php $chitat = fopen('yoo.txt', 'r'); if (!$chitat) { echo 'Ошибка при открытии файла...

Найти наименее удаленные друг от друга точки на плоскости
Приветствую ребята! Нужна помощь, помогите решить задачу на С++, Заранее благодарен. В файле...

Найти номера наиболее и наименее удаленных друг от друга точек
Добрый день. Задача: Сгенерировать массив с четным количеством 2N случайных целых элементов. В...

Найти номера наиболее и наименее удаленных друг от друга точек
В одномерном массиве с четным количеством элементов (2N) находятся координаты N точек плоскости....


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

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

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