Извиняюсь, но первых скольки чисел произведение и каков предел n(если есть)?
1 узнать длину одной стены (длину)
<span>2 узнать длину второй стены (ширину)</span>
<span>3 умножить</span>
<span>
</span>
program massiv;
var b:array[1..100]of integer;
r,n,m,i,p,k,a:integer;
begin
randomize;writeln ('a=');readln(a);
writeln('n=');readln(n);
for i:=1 to n do begin
b[i]:=random(50)-25;
writeln('a[',i,']=');
if b[i]>0 then begin r:=r+b[i];p:=r*2;
if b[i]>a then k:=k+1;
if ((b[i]<a)and(b[i]>0)) then m:=m+1;
end;end;writeln('удвоенная сумма положительных элементов ',p);
writeln('kол-во элементов массива , значения которых больше заданного числа',k);
writeln('количество положительных элементов не превсходящих заданного числа',m);
end.
Задал доллару значение 30, евро 60. Вы уж исправите как там сейчас)
<html>
<head>
<script>
function onButtonClick(){
var dollar=30;
var euro=60;
var rub=document.getElementById('lol').value;
alert('В долларах: '+rub*dollar+'\n\rВ евро: '+rub*euro); }
</script>
</head>
<body>
<input type='text' id='lol'>
<button onClick='onButtonClick()'>
Конвертировать
</button>
</body>
</html>