СРОЧНА УЖЕ НАДО ЗАВТРО СДАВАТЬ ТЕТРАТЬ написать прогу которая находит произведение элемента массива
5-9 класс
|
const N=10;
var a: array [0..N] of integer;
i, m: integer;
begin
for i := 0 to N do
a[i] := random(1000) - 500; { Надо же что-то в массив закинуть =) }
Var
mas:array[10] of integer;
i,pr:integer;
begin
pr:=1;
for i:=1 to 10 do
pr=pr*mas[i];
writeln('Произведение = ',pr);
end.
-----------------------------------------------
с Объявлением массива точно не помню,посмотри сам как он объявляется,я написал примерно,вроде размерность не много по другому указывается
не я просто уточнил спасибо выручил
Другие вопросы из категории
B1=ЕСЛИ(A2*A1>1000;5;10) B2=5 B3=СУММ(A1:B2)
Какой результат будут иметь следующие логические выражения (ИСТИНА или ЛОЖЬ):
а) ИЛИ(A1<5;B3=45)
б) НЕ(A3=2)
в) ИЛИ(И(НЕ(A3>2);A1=10);И(B2<=5;B3=50))
Примечание. Описать весь ход решения по действиям.
Читайте также
утро","Добрый день","Добрый вечер", "Спокойной ночи". 2)Написать программу,которая определяет,принадлежит ли точка с координатами (x,y)Заштрихованной области,ограниченной точками(x1,y1)(x2,y2).
Что надо написать вместо многоточия, чтобы вывести элементы массива X[1..N] в обратном порядке? В ответе не используйте пробелы.
for k:=1 to N do
writeln ( ... );
Ответ:-?