Паскаль. Дописать полностью код к отрывку кода

[KiberNet]

Паскаль. Дописать полностью код к отрывку кода

[PASCAL]
K:=1;
For i:=1 to 4 do
If c<=0 then k:=k*c-2;
[/PASCAL]

 

[KiberNet]

Два тега "[PASCAL]" "[/PASCAL]" тут лишние. Не обращайте на них внимание!

 

[mike_]

begin:
K:=1;
For i:=1 to 4 do
If c<=0 then k:=k*c-2;
end.
Всегда пожалуйста.

 

[mike_]

Вначале еще
K, I,c:integer;

 

[Vladimir_S]

begin:

Вначале еще K, I,c:integer;

Майк, ну право же... Если Вы не очень ориентируетесь в Паскале, то лучше не надо людей путать.
1. После Begin никакие двоеточия не ставятся.
2. с - это не простая переменная, а одномерный массив. Так ее и следует задавать.

Var
 k,i:Integer;
 c:Array[1..4] of Integer;

Begin
 c[1]:=-3;
 c[2]:= 1;
 c[3]:=-2;
 c[4]:=-3;
 k:=1;
 for i:=1 to 4 do
  if c[i]<=0 then k:=k*c[i]-2;
 writeln('k = ',k);
 readln
End.

 

[mike_]

Майк, ну право же... Если Вы не очень ориентируетесь в Паскале, то лучше не надо людей путать.

Ех холера, забыл. Хотя в школе занимал два года подряд вторые места по области
Массив это я спросонья проморгал(