(Паскаль) Молю помогите. В произвольном одномерном массиве найти сумму индексов положительных элементов.

Var a:array [1..1000] of integer;
  i,n,s:integer;
begin
  s:=0;  writeln (Введите размер массива);
  readln (n);
  for i:= 1 to n do begin
  write (a[,i,]= );
  readln (a[i]);
  if a[i]>0 then s:=s+i;
end;
writeln (Сумма индексов положительных элементов = ,s);
end.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!