Незнаю полооооооооооооолллоооо
1) 2.25; 7,29; 9,61
<span>2) 1,5; приблизительно 2,7</span>
Для случайных чисел:
var
a: array[1..5] of integer;
i: integer;
begin
randomize;
for i:=1 to 5 do
a[i] := random(100);
for i:=1 to 5 do
write(a[i], ' ');
writeln;
for i:=1 to 5 do
a[i] := a[i] * i;
for i:=1 to 5 do
write(a[i], ' ');
end.
Для ручного заполнения:
var
a: array[1..5] of integer;
i: integer;
begin
for i:=1 to 5 do
readln(a[i]);
for i:=1 to 5 do
write(a[i], ' ');
writeln;
for i:=1 to 5 do
a[i] := a[i] * i;
for i:=1 to 5 do
write(a[i], ' ');
end.
написал на js. по аналогии и на паскаль можно:
начало
var year = prompt('Какой сегодня год?'); ввод
var days = prompt('Сколько дней в текущем месяце?'); ввод
var today = prompt('Сегодняшнее число?'); ввод
var total = +days - +today; вычисление
alert('До конца месяца осталось: ' + total); вывод
конец