как заполнить массив рандомно

[ronny137]

найти произведение элементов массива кратных 3 и 9.
заполнить массив рандомно состоящий из 10 элементов случайными числами от 5 до 500.

[ronny137]

program zad2;
uses crt;
var
a:array [1..10] of integer;
s,i:integer;
begin
clrscr;
randomize;
for i:=1 to 10 do
a[i]:=random (500)+5;
for i:=1 to 10 do
write (a[i]:4);
s:=0;
for i:=1 to 10 do
if (i mod 3=0) and (i mod 9=0) then s:=s*a[i];
writeln;
write (s);
end.

так?

[DoDge_VipeR]

вот так

randomize;
for i:=1 to 20 do
a[i]:=random (496)+5;

[ronny137]

а во всем остальном нет ошибок? а то скольк раз пробовал программу запускать все время 0

[DoDge_VipeR]

правильно )))
ты вместо

s:=0;

напиши

s:=1;

a[i]:=random (500)+5;

- а это даст числа от 5 до 504)

[ronny137]

посмотрите. вроде неправильно она работает. пересчитывал на калькуляторе другой резулятат

[Grag]

И ищи элементы массива, кратные 3 и 9, а не их индексы кратные 3 и 9!

Да и условие не верно задано

if (i mod 3=0) and (i mod 9=0) then s:=s*a[i];

Нужно так

if (a[i] mod 3=0) or (a[i] mod 9=0) then S:=S*a[i];

[ronny137]

в условии написано что кратные 3 и 9. а не 3 или 9. значит должен быть end вроде как

[Grag]

Может ты и прав, не буду спорить... Если элемент кратен 9, то он будет кратен и 3. Да, ты тут прав... используй "and".

[silent_1991]

Но если элемент кратен 3, он не обязательно кратен 9...