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

Найти наибольший из элементов массива, имеющих нечетные индексы.

05.06.2008, 21:35. Показов 1749. Ответов 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
program massiv;
const n=10;
const x=('_____________________________________');
var a:array [1..n] of integer;
i,b,Amax:integer;
begin cls;
 for i:=1 to n do
  begin
   writeln ('введите',i,'ый элемент массива');
   readln (a[i]);
  end;
 for i:=1 to n do
  write (a[i],' ');
  writeln;
  writeln (x);
 i:=1;
 write (a[1],' ');
while i< n do
begin
      i:=i+2;
      write(a[i],' ')
      end;
 
end.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.06.2008, 21:35
Ответы с готовыми решениями:

Найти сумму элементов массива, имеющих нечетные индексы
В заданном целочисленном массиве найти: а) сумму элементов имеющих нечетные индексы, и сами...

Найти сумму четных элементов массива , имеющих нечетные индексы.
Задан одномерный массив целых чисел. Найти сумму четных элементов массива , имеющих нечетные...

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

Определить сумму элементов массива, имеющих нечетные индексы
Есть массив d из n элементов, необходимо определить и вывести сумму элементов, имеющих нечетные...

3
117 / 117 / 10
Регистрация: 12.05.2010
Сообщений: 1,207
06.06.2008, 08:30 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var i,j:integer;
     a:array [1..100] of integer;
begin
 clrscr;
 write('Введите n=');readln(n);
 write('Заполните массив:');
 for i:=1 to n do
  begin
   write('Введите a[',i,']=: ');readln(a[i]);
  end;
 j:=1;
 i:=-1;
 repeat
   i:=i+2;
   if k[j]<k[i] then j:=i;
 until i>=n;
 writeln('max=a[',j,']=',a[j]);
end.
0
0 / 0 / 0
Регистрация: 05.06.2008
Сообщений: 12
06.06.2008, 09:17  [ТС] 3
Спасибо!!!!
0
117 / 117 / 10
Регистрация: 12.05.2010
Сообщений: 1,207
06.06.2008, 09:18 4
Поправочка:
Pascal
1
2
3
4
5
6
 j:=1;
 i:=1;
 repeat
   if k[j]<k[i] then j:=i;
   i:=i+2;
 until i>=n;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.06.2008, 09:18

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Найти сумму элементов, имеющих нечетные индексы.
Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка . а)...

Вычислить среднее арифметическое положительных элементов массива, имеющих нечетные индексы.
Вычислить среднее арифметическое положительных элементов массива, имеющих нечетные индексы.

Найдите произведение элементов, имеющих нечетные индексы
Задайте массив из 10 элементов с помощью датчика случайных чисел. Найдите произведение...

Найти минимальный элемент массива среди четных элементов, имеющих нечетные индексы
Люди, очень нужна помощь с Паскалем. В целочисленном массиве X(5;-8;7;9;6;3;8;1;2;-2) найти...


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

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

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