Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Nikita1234
0 / 0 / 0
Регистрация: 20.11.2010
Сообщений: 1
1

одномерная массив

23.11.2010, 17:36. Просмотров 282. Ответов 0
Метки нет (Все метки)

Помоги пожалуйста, как найти в одномерном массиве состоящим из 20, самое маленькое значения используя только элемнты с непарнами индексами????? есть загатовка:

uses
crt;
const
num = 20;
var
i, j: integer;
ms: array[1..num] of real;
idet: integer;
Maxv: real;
izvele: integer;
begin
clrscr;
writeln('Programma ciklu operatoru un masivu apgusanai');
writeln('Ievadi 1, lai testetu ar nejausam vertibam');
writeln('Ievadi 2, lai testetu ar vienadam vertibam');
writeln('Ievadi citu vertibu, lai izietu');
readln(izvele);


if (izvele = 1) then begin
randomize;
for i := 1 to num do
ms[i] := random * 20 - 10;
end else
if (izvele = 2) then begin
for i := 1 to num do
ms[i] := 0;
end else
exit;


writeln;
for i := 1 to num do
write(' ',i:2, '.', ms[i]:10:5, ' ');
writeln;



MaxV := ms[1];
idet:=1;
for i := 1 to num do
if (ms[i] > MaxV) then begin
MaxV:= ms[i];
idet:=i;
end;
writeln;
writeln('Lielaka elementa vertiba: ', MaxV:0:5);
writeln('Lielaka elementa indekss: ', idet);

writeln;
writeln('Nospied Enter');
readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.11.2010, 17:36
Ответы с готовыми решениями:

Дан одномерный массив A из N элементов. Переписать положительные элементы массива в массив B, а отрицательные в массив C
Дан одномерный массив A из N элементов. Переписать положительные элементы...

Дан массив А. Составить массив В, в котором b[ i ]=a[0]+a[1]+a[2]+....+a[ i ] i=0,1,2,3,4......n-1. Распечатать массив В
Дан массив А. Составить массив В, в котором b=a+a+a+....+a...

из заданного теста выбрать цифры и записать в массив N ,а буквы - в массив B .Все остальные символы записать в массив S
Привет всем.Помогиет пожалуйста решить задачку из заданного теста выбрать...

Массив: Получить новый массив P, состоящую из чисел в интервале (a,b), которые не входят в массив H...
Помогите с заданием, пожалуйста :Написать программу, которая формирует новую...

Одномерная матрица
Создать массив Х. Организовать массив Y так, чтобы в начале были положительные...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.11.2010, 17:36

Дан массив целых чисел а(12). Переписать в массив х четные, а в массив у нечетные элементы массива а
Помогите пожалуйста решить эту задачу. Массив a выводит на печать. Я пишу a mod...

Одномерная оптимизация
Добрый день. Есть задача: Дана функция двух переменных f(r), начальная...

Одномерная оптимизация
f(x)=x3-x, x∈ нужно решить данное уравнение методами дихотомии, Фибоначчи,...


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

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

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