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

Определить среднее арифметическое положительных чисел, находящихся до первого нулевого значения

29.01.2010, 11:55. Показов 1308. Ответов 1
Метки нет (Все метки)

решите такую задачу
В массиве N чисел. Определить сред. ариф положительных чисел находящегося до первого нулевого значения и сумму нечетных чисел после первого нулевого значения
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.01.2010, 11:55
Ответы с готовыми решениями:

Определить, сколько нулей находиться до минимального значения в массиве E[1.N] и среднее арифметическое положительных чисел, находящихся после минима
Определить, сколько нулей находиться до минимального значения в массиве E и среднее арифметическое...

Найти среднее арифметическое положительных чисел массива и количество отрицательных до последнего нулевого значения
В массиве М найти среднее арифметическое положительных чисел и количество отрицательных до...

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

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

1
57 / 20 / 3
Регистрация: 29.10.2009
Сообщений: 198
29.01.2010, 12:24 2
Лучший ответ Сообщение было отмечено lav88 как решение

Решение

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
uses crt;
var m:array[1..100] of integer;
      i,n,s1,s2,k:integer;
      s:real;
      f:boolean;
begin
  write('Введите размерность массива:');
  readln(n);
  for i:=1 to n do begin
    write('m[',i,']=');
    readln(m[i]);
  end;
  f:=false; s1:=0; s2:=0;
  for i:=1 to n do begin
    if m[i]=0 then begin
     f:=true;
     k:=i-1;
    end;
    if (f=false)and(m[i]>0) then s1:=s1+m[i]
    else if (m[i] mod 2)<>0 then s2:=s2+m[i];
  end;
  s:=s1/k;
  writeln('Сред. ариф положительных чисел находящегося до первого нулевого значения:',s);
  writeln('Сумма нечетных чисел после первого нулевого значения:',s2);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.01.2010, 12:24

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

Определить среднее арифметическое четных чисел находящихся после максимального значения в массиве
Добрый вечер дорогой форум, прошу помочь в решение задачи на турбо паскале + перевод в ассемблер......

В матрице A[1..N,1..M] определить среднее арифметическое значение чисел в столбцах, находящихся до среднего столбца (SR1) и среднее арифметическое зна
Написать прогу на паскале со вставкой ассемблера, т.е. создание и вывод матрицы и средних сделать в...

Среднее арифметическое 5 чисел после первого нулевого
Помогите,пожалуйста я токо начала изучать паскаль,где здесь ошибка?? Нужно найти Среднее...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru