PASCAL ABC

[Damir_MADI]

Cказали сделать задачу в одном цикле ,или упростить ее как то так
HELP!!!!!!!!!!!!!!!
Вот сама программа(Условие:Дан массив С1, С2, …, С24.
В массиве есть два элемента равные 0. Заменить все элементы, стоящие между ними, на единицы.)

Program V4_N6;
uses crt;
var i:integer;
C:array[1..24]of real;
o1,o2:integer;
fl:text;
Begin
clrscr;
assign(fl,'H:\1тк1\file_name\001.tx t');
reset (fl);
for i:=1 to 24 do begin
readln (fl,C[i]);
writeln(C[i]);
if C[i]=0 then o2:=i;
end;
for i:=24 downto 1 do if C[i]=0 then o1:=i;
for i:=o1 to o2 do C[i]:=1;

for i:=1 to 24 do write(C[i]:3:0);
End.

По возможности напишите вот эту задачку:

Даны массивы
ZP1, ZP2, …, ZPN – список запчастей, необходимых станции технического
обслуживания автомобилей (СТОА);
K1, K2, …, KN – количество запчастей, необходимых СТОА;
x1, x2, …, xM – список поставляемых запчастей;
I1, I2, …, IM – количество поставляемых запчастей.
Напечатать список недополученных запчастей с указанием % недополучения (M ≤ N).

[VIK_aka_TOR]

вот тебе первая подправленая... твою не смотрел... но эта работает)
вроде как)

uses
crt;
var
a:array[1..10] of integer;
i,n:integer;
flag:boolean;
begin
flag:= false;
n:=10;
for i:=1 to n do // ввдим значения матрицы
begin
Write('a[',i,']=');
read(a[i]);
end;          // закончили вводить значения матрицы

for i:=1 to n do
begin
if (a[i] = 0) and (flag = false) then
   begin
   flag:= true;
   continue;
   end;
if (flag = true) and (a[i] = 0) then
   begin
   flag := false;
   end;
if flag = true then
   a[i]:=1;
end;


writeln();
for i:=1 to n do
writeln('a[',i,']=',a[i]);
end.

[Mad_Cat]

1)

while c[i]<>0 do
inc(i);inc(i); 
while c[i]<>0 do begin
a[i]:=1;inc(i);end;

[Damir_MADI]

mad-cat
Можешь в программу мою, свою часть добавить и полностью ее скинуть,проверить если не трудно работает ли она....

[Damir_MADI]

вик ака тор
А мы boolean еще не проходили,препод можешь заподозрить не ладное....может как попроще можно ее написать

Как мне препод обьснил в моей задаче нужно просто в один цикл все сделать,а не возвращатся в него 100500раз и все

[VIK_aka_TOR]

вместо boolean можно использовать любую целочисленную переменную...
flag: integer; пускай....

flag:=0;
for i:=1 to n do
begin
if (a[i] = 0) and (flag = 0) then
   begin
   flag:= 1;
   continue;
   end;
if (flag = true) and (a[i] = 0) then
   begin
   flag := 0;
   end;
if flag = 1 then
   a[i]:=1;
end;