Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Помогите пожалуйста составить программу

Ответ оставил Гость

Var
mas: array [1..15] of integer;
a, i, s:integer;
begin
write(Введите a>> );
readln(a);
for i:=1 to 15 do
begin
mas[i]:= random(31)-10;
writeln(mas[, i, ] = , mas[i]);
end;
writeln;for i:=1 to 15 do
begin
if (mas[i]<0) and (mas[i]if mas[i] mod 3 = 0 then writeln(i);
end;
writeln;
writeln(Сумма отрицательных элементов, меньших , a, равна , s);
end.