Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Массив

Автор: Trojan 12.1.2007, 18:49

Массив а вводится с клавиатуры. Найти сумму его элементов, размер произвольный не менее [1..10]

Автор: powerfox 12.1.2007, 18:59

Код


program array_of_trojan;
const
size=10;
var
nums:Array[0..size] of Integer;
i:Integer;
summ:Integer;
begin
summ:=0;
writeln('Enter the nums, count of nums is ', size+1);
for i:=0 to size do
 begin
 write('Enter the number: ');
 readln(nums[i]);
 summ:=summ+nums[i];
 end;
writeln('Summa: ', summ);
end.

Автор: Trojan 13.1.2007, 07:58

Спасибо!