Составить программу, выводящую ** экран сведения о периодических изданиях (наименование...

Question

Составить программу, выводящую на экран сведения о периодических изданиях (наименование издания, тираж, стоимость подписки). Распечатать наименования изданий, для которых стоимость подписки превышает заданное значение.в паскале

Comments

Всегда,когда пишешь задачу по программированию указывай язык

Answer 1

End;
Var a : array[1..n] of izd;
i :byte;
BEGIN
ClrScr;
for i:=1 to n do
with a[I] do
begin
Writeln('Введите наименование издания ',I);
Readln(name);
Writeln(' Тираж');
Readln(tir);
Writeln('Стоимость за год');
Readln(stoim);
End;
Writeln('Периодические издания');
for i:=1 to n do
with a[I] do
writeln ('name,’ ‘,tir,’ ‘,stoim:4:2');
Readln;
end.