Question

Створіть проект, у якому створюється одновимірний масив (список) з бан- ківських вкладів 10 клієнтів. Через рiк вклад кожного збільшується на р %. Виведіть суми, які зможуть забрати ці клієнти через рік

Мова програмування Pascal
Lazarus IDE​

Answer 1

program BankDeposits;

var

deposits: array[0..9] of real;

i: integer;

rate: real;

begin

// Заповнюємо масив банківських вкладів

for i := 0 to 9 do

begin

writeln('Введіть вклад клієнта ', i+1, ': ');

readln(deposits[i]);

end;

// Запитуємо користувача про річну ставку

writeln('Введіть річну ставку: ');

readln(rate);

// Обчислюємо суми вкладів через рік

for i := 0 to 9 do

begin

deposits[i] := deposits[i] * (1 + rate / 100);

writeln('Клієнт ', i+1, ' зможе зняти ', deposits[i]:0:2, ' грн через рік');

end;

end.