ваша помощь нужна...
НАдо вот к етой проге блок-схему составить,там массивы используются.
Program lab4;
uses wincrt;
Type mesjac=array [1..12] of real;
var
plan:real;
vip:mesjac;
i:integer;
begin
writeln(''Введите план продукции'');
readln(plan);
For i:=1 to 12 do
begin
writeln(''Введите объем выпуск. продукции за '',i,''месяц:''{пробовал vip[i]:6:2 неполучилось.});
readln(vip[i]);
if vip[i]<plan then begin writeln(''План не выполнен за '',i,'' месяц(объем'',vip[i],'')'');end;
end;
end.
и еще как сделать чтобы при выводе там допустим "не выполнение плана" появляеться 1.0000Е+00, как сделать чтобы было 1 и т.д.,
САМО ЗАДАНИЕ:
Известен месячный план выпуска некоторой продукции и объема выпущенной этой продукции заводом за год (помесячно). Определить, когда завод не выполнил план. Результат получить в виде: номера месяца и объема выпущенной продукции.
