Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
помогите составить программу на Паскале
Дан массив из 10 действительных элементов. Вычислить сумму с 1 по 7 элемент и с 5 по 10 элемент с использованием процедуры и функции.
1 | Автор: Hachetlov_R | 2012-05-23, 20:46   |  Репутация: [ + 0 ]
var
s:integer;
procedure ss(q,w:integer);
var
i:integer;
begin
s:=0;
for i:=q to w do
s:=s+i;
writeln(s);
end;
var
z,x:integer;
begin
z:=1;x:=7;
ss(z,x);
z:=5;x:=10;
ss(z,x);
end.

"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).Спасибо


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-05-24, 18:07   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: