Const
n = 5;
var
a: array [0..n-1] of shortint;
i: byte;
begin
randomize;
writeln ('Сформированный массив: ');
for i:=0 to n-1 do
begin
a[i]:=random (51);
write (a[i], '; ');
end;
end.
Это принять значение за константу. Значение в этой ячейке не будет изменяться.
Я не экономист и не экстрасенс, так что если именно сама формула подсчета дохода неверна - меняйте сами, я ее просто нашла в интернете.
var
vklad, dohod, summa, stavka: real;
srok: integer;
begin
write('Величина вклада (р.) - ');
readln(vklad);
write('Срок вклада (дней) - ');
readln(srok);
write('Годовая процентная ставка (%) - ');
readln(stavka);
dohod := (vklad*stavka)/(100*365) * srok;
summa := vklad + dohod;
writeln('Доход: ', Trunc(dohod), ' р.', frac(dohod)*100:3:0, ' коп.');
writeln('Сумма по окончании срока вклада: ', Trunc(summa), ' р.', Frac(summa)*100:3:0, ' коп.');
<span>end.</span>
Алгоритм, в котором команды выполняются в зависимости от выполнения или невыполнения некоторого условия, называется ветвлением.
Ответ:
Носитель информации - материальный объект, на котором можно тем или иным
способом зафиксировать информацию