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

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

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

Автор: LolaJke 9.11.2009, 18:12

Даны массивы Z1, ... , Z10 ; R1, ... , R15 .
Определить
user posted image

Автор: SoWa 9.11.2009, 18:33

Код



var z: array[1..10] of integer;
var r: array[1..15] of integer;
var zS, rS: real = 0;
var qi,i: integer;

function QiEval
begin
qi:=0;
for i:=1 to 10 do
qi:=(zS-rS)*(z[i] - r[1]);
writeln qi;
end;

begin
for i:=1 to 10 do
zS :=zS+z[i];
zS:= zS/10;

for i:=1 to 15 do
rS := rS+r[i];
rS:=rS/15;

QiEval;
end.

Синтаксис исправить сам сумеешь?

Автор: LolaJke 9.11.2009, 19:03

Если честно я хз что это такое! smile

хаха

Автор: SoWa 9.11.2009, 19:34

А чем ты занимался на лекциях? )))

Автор: ТоляМБА 9.11.2009, 20:54

LolaJke, твоё "хаха" тут ну абсолютно неуместно!

Автор: LolaJke 9.11.2009, 21:17

А всё понел! Спасибо большое! smile

Извините больше не буду,просто это же смешно,не знать что такое синтаксис.Ну я так думаю по крайней мере ! smile