В чем ошибка?
Const n=20;
Type vector = array[1 ... n] of integer;
Вычислить для вектора x:
Произведение всех положительных элементов массива, которые кратны 17
я сделала так, но все время выдает 0
const
n=6;
Type vector=array[1 ... n] of integer;
var x:vector;
i:integer;
pr:extended;
begin
for i:=1 to n do
begin
readln (x[i]) ;
if x[i] mod 17=0 then
pr:=pr*x[i];
end;
writeln ('proizvedenie = ', pr:4:4) ;
readln;
end.
Ответы (1)
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «В чем ошибка? Const n=20; Type vector = array[1 ... n] of integer; Вычислить для вектора x: Произведение всех положительных элементов ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Похожие вопросы по информатике
Как сделать теперь без массива (паскале) ? var nm:array of integer; j, l:integer; begin nm: = new integer[3] (random (20), random (20), random (20)) ; writeln ('nm[0] = ', nm[0]) ; writeln ('nm[1] = ', nm[1]) ; writeln ('nm[2] = ', nm[2]) ;
Ответы (1)
Как применить random вместо readln? program pr9; type mas = array[-10 ... 10] of integer; const n = 5; var s, i:integer; a:mas; begin writeln ('Номера четных отрицательных элементов:') ; s:=0; for i:=1 to n do begin readln (a[i]) ; end;
Ответы (1)
Какие описания массивов являются правильными с точки зрения компилятора языка Pascal? var a1: array[-1000 ... 50] of integer; const m1 = 20; m2 = m1*100; var a6: array[m1 ... m2] of - 200 ... 200; var a2: array[200 ...
Ответы (2)
Укажите верное описание целочисленного массива mass, состоящего из 10 элементов. Интервал значений элементов [0; 100] 1) var mass:array of integer; 2) var mass:array[1 ... 10] of integer; 3) var mass:array[0 ... 100] of integer; 4) var mass:array[0 .
Ответы (1)
Надо дополнить программу, чтобы он искал решение в x столбце. Program A1; var c: array[1 ... 100, 1 ... 100] of integer; a, b: array[1 ...
Ответы (1)
Помогите с ответом
Напиши, что умеют делать животные. Прочти предложения. 1. A fish. 2. A horse. 3. A bird. 4. A chimp. 5. A dog. 6. A mouse. 7. A dolphin. 8. A kangaroo. 9. An. elephant. 10. A rabbit.
Нет ответа
Сделайте синтасический разбор предложений: Быстро растаял под лучами яркого солнца снег. Хороши летом глазастые ромашки! Идёшь в тишине, и уха коснётся трубный звук.
Нет ответа
С. Сахарнов "Летучая рыба"
Нет ответа
Объясните, почему уважение американцев к труду можно считать одной из причин подъёма экономики. 19 Век
Нет ответа
Прочитайте. определите слово по его лексическому значению неб льшой сочный плод курстарников и трав. () тот, кто учится в школе () первый месец зимы () иструмент для копания земли () хлебный злак () часть горизонта, где восходит солнце () вставьте
Нет ответа