Форум программистов, компьютерный форум, киберфорум
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
2854 / 1983 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
11.01.2011, 14:30 0

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

11.01.2011, 14:30. Просмотров 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
Uses
 CRT;
Var
 i,kol,n,ind:integer;
 pr:real;
 a:array[1..20] of integer;
begin
randomize;
readln(n);
kol:=0;
for i:=1 to n do
begin
 a[i]:=random(10)-3;
 write(a[i]:3);
  if a[i]>0 then
   inc(kol);
end;
writeln;
writeln('Kol:=',kol);
pr:=1;
ind:=0;
for i:=n downto 1 do
 if a[i]<>0 then
  pr:=pr*a[i]
 else
 begin
  ind:=i;
  break;
 end;
if (ind<>0) and (ind<>n) then
 write('Pr:=',pr)
else
 write('Нет нулей.Или он последний');
readkey;
end.


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

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

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

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

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

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