Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Построение матрицы https://www.cyberforum.ru/ pascalabc/ thread65277.html
Построить квадратную матрицу порядка n: 1000000 1200000 1230000 1234000 1230000 1200000 1000000
Pascal ABC Сворачивание в трей
Скажите пожалуста если я допустим создал в Pascal ABC программу с модулем vcl. Какую команду надо прописать чтобы эту программу можно было сворачивать в трей ???
не могу понять как построить трехэтажный график и использовать Random... Pascal ABC
Здрасте.... пожалста, помогите решить задачу: Построить трехэтажный график зависимости: 1)скорости от времени.(OX - t, OY - V) V - скорость, t - время. 2)координаты от...
Pascal ABC Составьте две программы в Pascale ABC с циклами For или While №1 Составте программу для вычисления суммы чисел кратных 5 в диапазоне от 1 до 100!?? № 2 Составте программу выводящую на экран четырёхзначные числа у которых первая и последняя цифра... https://www.cyberforum.ru/ pascalabc/ thread65055.html
Pascal ABC Цикл For. выводящую на экран нечётные числа от 30 до 40 в порядке убывания https://www.cyberforum.ru/ pascalabc/ thread64710.html
Составте программу выводящую на экран нечётные числа от 30 до 40 в порядке убывания. заранее спасибо....
Массив. Удалить простые числа и продублировать числа, равные кубу целого числа Pascal ABC
добрый вечер) тут надо написать такую программу дана последовательность чисел, удалить из этой последовательности простые числа и затем продублировать числа, равные кубу целого числа. вот что я...
Pascal ABC Вычисление суммы положительных элементов каждой строки матрицы (подпрограмма)
1. Написать программу решения следующей задачи: Вычислить и запомнить суммы положительных элементов каждой строки матриц A(6,6) и B(5,5). вообщем проблема в том ,что я не могу составить ,вычислить...
Pascal ABC Вычисление суммы отрицательных элементов массива (подпрограмма) Написать подпрограмму для вычисления суммы отрицательных элементов массива A(200). помогите чем можете https://www.cyberforum.ru/ pascalabc/ thread64370.html
Pascal ABC Чтение данных из Excel-файла. https://www.cyberforum.ru/ pascalabc/ thread64277.html
Подскажите, пожалуйста, каким образом чтитывать данные из excel-таблиц? Пытаясь сделать данным образом: var st: string; dict: Text; begin Assign(dict,'Лист Microsoft Excel.xls'); ...
Pascal ABC Error 26: Type mismatch P.S. Сорри за иероглифы - это кириллица в 808 кодеровке Есть { Џа®Ја*¬¬* "‘®авЁа®ўЄ* ¬*ббЁў*". ђ*§а*Ў®в*« бв. 117 Ја.: Љ®бЄЁ* Ћ«ҐЈ} Program sort_arr; Uses Crt; const N = 100; type https://www.cyberforum.ru/ pascalabc/ thread64210.html
Retired
7720 / 2552 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
19.11.2009, 15:06 0

Найти произведение и среднее арифметическое элементов массива,предшествующих первому нулевому элементу

19.11.2009, 15:06. Просмотров 1535. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено 239sux как решение

Решение


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
33
34
35
36
37
uses
  crt;
const
  n=10;
var
  a:array[1..n]of integer;
  i,c,s,p:integer;
  res:real;
  fl:boolean;
{îñíîâíàÿ ïðîãðàììà}
begin
  fl:=true;
  s:=0;
  c:=0;
  p:=1;
  writeln('Ìàññèâ:');
  write('[ ');
  for i:=1 to n do
  begin
    a[i]:=random(8)-4;
    if a[i]=0 then
      fl:=false;
    if fl then
    begin
      inc(s,a[i]);
      inc(c);
      p:=p*a[i]
    end;
    write(a[i]:2,' ')
  end;
  writeln(']');
  if s<>0 then
  begin
    res:=s/c;
    writeln('Ñð.àð. = ',res,'. Ïðîèçâåäåíèå = ',p)
  end;
end.


Вернуться к обсуждению:
Найти произведение и среднее арифметическое элементов массива,предшествующих первому нулевому элементу
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.11.2009, 15:06

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

Найти среднеарифметическое элементов массива, предшествующих первому элементу, большему 50
Найти среднеарифметическое элементов вещественного массива А1,А2...Аn предшествующих первому...

Найти среднее арифметическое элементов, предшествующих первому положительному элементу массива
Найти среднее арифметическое значение элементов массива х(х1,х2...х10), предшествующих первому...

Найти сумму и количество положительных элементов, предшествующих первому нулевому элементу массива
. Дан массив А(10). Найти сумму и количество положительных элементов, предшествующих первому...

Найти сумму и количество положительных элементов массива, предшествующих первому нулевому элементу (C++ -> Python)
int A = {1,2,3,-4,0,6,7,8,9,10}; int sum = 0, count = 0; for (int i = 0; i &lt; 10; ++i) ...

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