Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 19.11.2009
Сообщений: 49
1

Найти минимальный элемент среди элементов, расположенных на нечетных позициях массива

05.07.2010, 21:52. Просмотров 1420. Ответов 3
Метки нет (Все метки)

Пожалуйста, кто нибудь помогите.... решить задачу: Дан массив А(15). Найти минимальный элемент среди элементов, расположенных на нечетных позициях массива, а также определить их кол-во и произведение не нулевых элементов, следующих за первым минимальным элементов.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.07.2010, 21:52
Ответы с готовыми решениями:

Найти минимальный элемент из элементов массива, расположенных на нечетных местах
Доброго времени суток! Вообщем возник очередной вопрос по одномерным массива. Нужно составить...

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

Найти минимальный элемент среди элементов, расположенных на нечетных позициях массива
Срочно! 2. Дан массив А(15). Найти минимальный элемент среди элементов, расположенных на...

Найти минимальный элемент среди элементов, расположеных на нечетных позициях массива
Дан массив А(15). Найти минимальный элемент среди элементов, расположеных на нечетных позициях...

3
156 / 158 / 93
Регистрация: 01.01.2010
Сообщений: 398
05.07.2010, 22:56 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=15;
var a:array[1..n] of integer;
i,k,p,min,imn:integer;
b:boolean;
begin
clrscr;
randomize;
for i:=1 to n do begin
a[i]:=random(21);
write(a[i]:4);
end;
k:=0;
min:=a[1];
imn:=1;
for i:=1 to n do if odd(i) then begin
if a[i]<min then begin
min:=a[i];
imn:=i;
end;
inc(k);
end;
p:=1;
b:=true;
for i:=imn+1 to n do if a[i]<>0 then begin
p:=p*a[i];
b:=false;
end;
if b then p:=0;
write(min,' ',k,' ',p);
readln
end.
0
0 / 0 / 0
Регистрация: 19.11.2009
Сообщений: 49
05.07.2010, 23:55  [ТС] 3
Thank's
0
7 / 6 / 3
Регистрация: 25.10.2010
Сообщений: 218
10.10.2011, 17:26 4
почему то ошибка 215 Арифметическая переполнение!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.10.2011, 17:26

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

Найти минимальный элемент среди элементов, расположенных в нечетных строках матрицы
Дан массив A. Найти минимальный элемент среди элементов, расположен-ных в нечетных строках...

Типизированные файлы: Найти максимум среди компонент, расположенных на четных позициях файла и минимум среди компонент на нечётных позициях
Задан числовой файл . Найти максимум среди компонент, расположенных на четных позициях файла и...

Найти минимальный элемент среди элементов расположенных в нечетных строках массива
Дан массив А 5.5 найти минимальный элемент среди элементов расположенных в нечетных строках массива

Найти минимальный элемент среди элементов, расположенных в нечетных строках массива
Дан массивВ(5,5).найти минимальный элемент среди элементов, расположенных в нечетных строках...


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

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

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