Решыте плиз !!!!!Я не понимаю плиз срочно!!!!
Решыте плиз !!!!!Я не понимаю плиз срочно!!!!
Гость
Ответ(ы) на вопрос:
ГостьProgram v9;
uses crt;
var a: array [1..6] of real;
i: integer;
s: real;
begin
clrscr;
for i:=1 to 6 do
begin
write('a[',i,'] = ');
readln(a[i]);
s:=s+a[i];
end;
writeln('Sum = ', s);
end.
Не нашли ответ?
Похожие вопросы