Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Блок схема к программе вывода таблицы значений функции https://www.cyberforum.ru/ turbo-pascal/ thread227085.html
помогите плиз составить блок схему Program lab4; Const n= Pi/4; Var x ,y :real ; Begin Writeln (‘информ часть ‘); Writeln (‘ ______________________________’); Writeln (‘! x ! ...
Turbo Pascal Составить блок-схему к готовому коду
ПОМОГИТЕ СОСТАВИТЬ БЛОК СХЕМУ: program lab_3; var n: integer; begin writeln ('ИНФОРМ ЧАСТЬ, вариант № 18'); writeln ('введите число' ); readln ( n); case n of 0..13: writeln ('мальчик');...
Turbo Pascal Создание и использование файлов
Создать файл F, компоненты которого являются действительными числами. Найти произведение компонент файла F и записать по номеру заданной компоненты.
Turbo Pascal Обработка массивов В матрице найти минимальный элемент заданной строки и умножить на это число элементы того столбца, в котором расположен максимальный элемент указанной строки. https://www.cyberforum.ru/ turbo-pascal/ thread227065.html
Turbo Pascal Попадание точки в заштрихованную область https://www.cyberforum.ru/ turbo-pascal/ thread227053.html
Помогите подготовиться к экзамену. Мне бы знать самое основное по этому плану: 1.Таблица истиности для 3-х переменных. 2.Линейные алгоритмы (как 1 лаба) 3.Развилки (как 3 задача 2 лабы)...
координаты ПАскаль почти решил Turbo Pascal
почему постоянно пишет не входит program grafiki; var x,y : integer; begin writeln ( ' vvedite koordinaty '); readln ( x, y); if x= 0 then for y:= 4 to -3 do begin writeln ( 'vxodit');...
Turbo Pascal Дана матрица целых чисел A(mxn).Вывести на экран строку и столбец, содержащие её наименьший элемент...
Дана матрица целых чисел A(mxn).Вывести на экран строку и столбец, содержащие её наименьший элемент, а также номера этих строки и столбца. вот,сделал матрицу 4x4, рандомировнанные элементы:...
Turbo Pascal Вычислить сумму ряда с точностью эпсилон Используя оператор цикла с постусловием, вычислить сумму ряда с точностью (эпсилон)=10^(-3) (уравнение ниже) https://www.cyberforum.ru/ turbo-pascal/ thread227037.html
Turbo Pascal Определить попадание точки в заштрихованную область https://www.cyberforum.ru/ turbo-pascal/ thread227034.html
С клавиатуры вводятся два числа X и Y. Написать программу,определяющую попала ли точка с координатами(x,y) внутрь заштрихованной области(рисунок ниже)
Turbo Pascal Используя оператор цикла с параметром, протабулировать функцию с шагом dx=0,1.Найти и напечатать так же минимальное, максимальное и среднее арифметиче Используя оператор цикла с параметром, протабулировать функцию с шагом dx=0,1.Найти и напечатать так же минимальное, максимальное и среднее арифметическое полученных значений функции. Вычисление... https://www.cyberforum.ru/ turbo-pascal/ thread227030.html
10 / 10 / 0
Регистрация: 05.01.2011
Сообщений: 151
0

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

11.01.2011, 13:36. Просмотров 1188. Ответов 7
Метки (Все метки)

помогите розобраться .я поменял в проге
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
program elments;
const n=10;
 
  var
 
   a:array[1..n] of integer;
 
   i,kol,p,m:integer;
 
begin
 
kol:=0;     m:=0;
 
for i:=1 to n do
 
begin
 
read(a[i]);
 
if a[i]>0 then kol:=kol+1;
 
if a[i]=0 then p:=i;
 
end;
 
for i:=p to n do
 
m:=m+a[i];
 
 
 
writeln('количество позитивных елементов',kol);
 
writeln('результат умножения елементов масива,  после последнего елемента, ровного нолю. =',m);
end.

m:=m+a[i] на m:=m*a[i] и у меня результат умножения у все случая =0

Вернуться к обсуждению:
Найти произведение элементов массива после последнего элемента, равного нулю
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.01.2011, 13:36
Готовые ответы и решения:

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

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

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

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

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