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

vitik

10 / 10 / 0

Регистрация: 05.01.2011

Сообщений: 151

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

11.01.2011, 13:36. Просмотров 1188. Ответов 7

Метки (Все метки)

помогите розобраться .я поменял в проге

Pascal

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

Вернуться к обсуждению:
Найти произведение элементов массива после последнего элемента, равного нулю

Следующий ответ

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

11.01.2011, 13:36

Готовые ответы и решения:

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

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

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

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

Наверх