Помогите пожалуйста, с информатикой! Огромное спасибо!

Задание: Запишите полные тексты двух последних программ и выполните их на компьютере.
1 программа) k: = 0 ;
for i: =1 to 10 do
if a [i] >50 then k: = k+1 ;
write (' k=' , k)

2 программа) s: = 0 ;
for i: = 1 to 10 do
if ( a [i]>50) and ( a [i]<50) then s: =s+a [i] ;
write ( ' s=' , s)

В любом случае, спасибо Вам огромное!

Незачто.

Скажите пожалуйста, а буквы i, n, x в квадратные скобки оформить нужно? Просто я в информатике не очень)

Уже разобралась! Огромное Вам спасибо!

Не за что.

Точно не знаю.Наверное будет так:var a:array[1..10000] of integer;n,x,i,k:integer;beginread(n);k:=0; for i:=1 to n do  read(a[i]); read(x); for i:=1 to n do   if a[i]=x then begin   k:=k+1;   write(i,' ');   end;   if k=0 then write(-1);endЯ не совсем понял задание.