Задача: Дан массив: 5 фамилий и зарплаты, распечатать фамилии и зарплаты меньше 5долларов.

Question

Вот программку написал, помогите с блок-схемой, товарищи: 
Program PR; 
VAR i:integer; 
a:array [1..5] of integer; 
f:array [1..5] of string; 
BEGIN for i:=1 to 5 do 
begin writeln ('Введите',i,'фамилию'); 
readln (f); 
end; 
for i:=1 to 5 do 
begin writeln ('Введите',i,'зарплату'); 
readln ( a); 
end; 
For i:=1 to 5 do 
begin if a<5 then 
writeln (f,a); 
end; 
end.

Натали П · Accepted Answer

слушай, ну если ты прграммки умеешь писать, то блок-схемы просто обязан уметь рисовать. И на твоём месте я бы всё-таки двумерный массив стал заводить, а не 2 одномерных