Здравствуйте! Можете, пожалуйста, написать текст данной задачи ** языке Pascal, заранее...

Question

Здравствуйте! Можете, пожалуйста, написать текст данной задачи на языке Pascal, заранее благодарен!
Вот если что начало:
Type Anketa = RecordNomer:string[10];Summa:string[6];Vid:string[2];end;Var G:Array[1..3] of Anketa;I:byte;Otvet:string[6];Beginfor i:=1 to 3 dobeginWrite('Введите номер счёта: ');Readln(G[i].Nomer);Write('Введите сумму: ');Readln(G[i].summa);Write('Введите вид операции(снятие/пополнение): ');Readln(G[i].vid);end;Writeln('Информация о состоянии счёта');Write('Введите номер счёта, состояние которого надо посмотреть: ');readln(otvet); For i:=1 to 3 do

---

Comments

Ну пожалуйста помогите

---

У мен будет два

Answer 1

Type schet = Record
Nomer:integer;
Summa:real;
Vid:string[10];
Fio:string[40];
Summa1:real;
end;
Var G:Array[1..10] of schet;
I:byte;
Begin
for i:=1 to 10 do
begin
Write('Введите номер счёта: ');
Readln(G[i].Nomer);
Write('ФИО клиента: ');
Readln(G[i].Fio);
Write('Сумма счета: ');
Readln(G[i].Summa);
Write('Введите вид операции(снятие/пополнение): ');
Readln(G[i].vid);
Write('Введите сумму снятия/пополнения): ');
Readln(G[i].Summa1);
Writeln(#10,'Информация о состоянии счёта');
if G[i].Vid='пополнение'
then G[i].Summa:=G[i].Summa+G[i].Summa1
else
G[i].Summa:=G[i].Summa-G[i].Summa1;
writeln(#10,'ФИО: ', G[i].Fio:5,#10,'№ счета: ', G[i].Nomer,#10,'Сумма счета: ', G[i].Summa,#10);
end;
end.

---