Мне нужна помощь: В Фрее паскаль Осмотрим массив T [1..n] целых

Мне нужна помощь: В Фрее паскаль
Рассмотрим массив T [1..n] целых чисел, где n lt;= 20. Напишите программку, используя функцию, которая будет показывать положительные элементы этого массива.Мне необходимо под этот модель :этот програм считает сумму.
type tab=array[1..10] of integer;
var a:tab;
i,n:integer;
s:real;
procedure suma(var x:tab; n:integer; var sum:real);
var i:integer;
begin
sum:=0;
for i:=1 to n do
sum:=sum+x[i];
end;
beginmain
write('n='); readln(n);
write('dati elementele tabloului:');
for i:=1 to n do readln(a[i]);
suma(a,n,s);
write('s=',s:7:2);
end.
Спасибо заблаговременно.

Вера Плакхина 2019-09-01 15:45:03

Таковой же идиотизм - объявить глобальную i, а в процедуре объявить и использовать еще локальную. Кратче, все светло с уровнем этого "учителя".

Ника Вергай 2019-09-01 15:52:23

необыкновенно повеселила фраза "dati elementele tabloului" - это молдавское "дать элементы изображения". Какого изображения?

Виталька Цай 2019-09-01 16:01:30

насчет глобальной i, интересно, что в pascalABC.NET так не работает, нужно объявлять свою локальную в подпрограмме либо описывать в заголовке цикла, а в фрипаскале довольно глобальной, хм

Гердо Паша 2019-09-01 16:02:57

А что означает показывать элементы? Куда их отображать? Может выводить?

Kosyhina Agata 2019-09-01 16:06:39

Выводить простите

Арсений Вурзель 2019-09-01 16:15:15

Я из Молдавии

Клещинова Виолетта 2019-09-01 16:22:42

iolandavalerypad353 помоги пожалуйста

Мишаня Герик 2019-09-01 16:27:54

Реши как ты знаешь

Юрий Дютинов 2019-09-01 16:34:47

Может будет верно

Максим Мезенский 2019-09-01 16:39:15

"что в pascalABC.NET так не работает" - все там работает, как положено в современном языке. Нельзя использовать глобальную переменную в качестве параметра цикла снутри процедуры? Да, нельзя, это не дает улучшить код.