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

Найти сумму модулей элементов массива, расположенных после первого элемента, равного нулю

05.05.2012, 15:40. Просмотров 1351. Ответов 3
Метки нет (Все метки)

В одномерном массиве, состоящем из n целочисленных элементов, вычислить:
1) минимальный по модулю элемент массива;
2) сумму модулей элементов массива, расположенных после первого элемента, равного нулю.
Преобразовать массив таким образом, чтобы в первой его половине располагались элементы, стоявшие в четных позициях, а во второй половине - элементы, стоявшие в нечетных позициях.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.05.2012, 15:40
Ответы с готовыми решениями:

Найти сумму модулей элементов массива, расположенных после первого элемента, равного нулю
В одномерном массиве, состоящем из N целочисленных элементов, вычислить: 1.Сумму модулей элементов...

Вычислить сумму модулей элементов массива, расположенных после первого элемента, равного нулю
в одномерном массиве состоящем из n вычислить сумму модулей элементов массива расположенных после...

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

Найти сумму модулей элементов, расположенных после первого элемента, равного 0
помогите пожалуйста в одномерном массиве состоящнм из n уелых элементов вычеслить а) минимальный...

3
148 / 111 / 83
Регистрация: 09.09.2011
Сообщений: 274
06.05.2012, 03:18 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

1) даже обьяснять не буду, это элементарно, а вы ленитесь...

2)
Pascal
1
2
3
4
5
6
7
8
9
10
...
for i:=1 to 10 do
 begin
  if a[i]=0 then 
   begin
   j:=i;
   break;
  end;
end;
...
1
0 / 0 / 0
Регистрация: 05.05.2012
Сообщений: 4
20.05.2012, 10:49  [ТС] 3
Извините, просто я совсем не понимаю программирование, умницей не получается быть...Другими предметами тоже приходится заниматься.
0
Фрилансер
3411 / 2808 / 3000
Регистрация: 08.02.2012
Сообщений: 7,961
Записей в блоге: 1
20.05.2012, 11:26 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

1)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Var A:array[1..100] of integer;
    i,n,min:integer;
Begin
    randomize;
    min:=10;
    write('Введите размерность массива: ');readln(n);
    For i:=1 to n do 
     Begin
      A[i]:=random(50)-25;
      write(A[i]:4);
      if abs(A[i])<min then min:=A[i];
     End;
    writeln;
    writeln('Минимальный по модулю эллемент= ',min);
    readln;
End.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.05.2012, 11:26

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

Найти сумму элементов массива, расположенных после последнего элемента, равного нулю
В одномерном массиве, состоящем из n целочисленных элементов, вычислить: 1. Количество...

Найти Сумму модулей элементов массива, расположенных после первого отрицательного элемента
Сумму модулей элементов массива, расположенных после первого отрицательного элемента . Диапазон (...

Вычислить сумму модулей элементов массива, расположенных после первого элемента
Сделал через массив, требуют через функцию. В одномерном массиве, состоящем из n целочисленных...

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

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

Найти произведение элементов массива после последнего элемента, равного нулю
помогите розобраться .я поменял в прогеprogram elments; const n=10; var a:array of...


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

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

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