Помогите с паскалем...

[DedMazay]

Помогите с паскалем...

1. Вычислить среднее арифметическое всех четных чисел от 1 до 100

2.Итерационные циклы.
Составить алгоритм и программу вычисления значения функции http://cs-mapping.com.ua/forum/attachment.php?attachmentid=88265&stc=1 с точностью http://cs-mapping.com.ua/forum/attachment.php?attachmentid=88266&stc=1 и числа k членов указанной суммы . Итерационный процесс завершить , если http://cs-mapping.com.ua/forum/attachment.php?attachmentid=88267&stc=1

дали задание, ваще не шарю, помогите плиз

 

[DrTressi]

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

 

[DrTressi]

2 DedMazay: Ну первая эт из ЕГЭ, ничего сложного:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
const
n=10;
var a: array [1..n] of integer;
i,s,k:integer;
r:real;
begin
for i:=1 to n do
a[i]:=i;
 i:=1;
s:=0;
k:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then
begin
s:=s+a[i];
k:=k+1;
end
else

end;


r:=s/k;
writeln(r);
readln;
end.

А по поводу второй, нихрена не пойму. Сделай нормальный скриншот с учебника.

 

[DedMazay]

2 DedMazay: Ну первая эт из ЕГЭ, ничего сложного:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
const
n=10;
var a: array [1..n] of integer;
i,s,k:integer;
r:real;
begin
for i:=1 to n do
a[i]:=i;
 i:=1;
s:=0;
k:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then
begin
s:=s+a[i];
k:=k+1;
end
else

end;


r:=s/k;
writeln(r);
readln;
end.

А по поводу второй, нихрена не пойму. Сделай нормальный скриншот с учебника.

спасиб очень.

 

[DrTressi]

2 DedMazay: Да не за что Меня всё-таки вторая интересует!