02 Мар

с программированием ( Pascal )

с программированием ( Pascal )

  • Проверенные ответы содержат наджную, заслуживающую доверия информацию, оценнную командой экспертов. На «Знаниях» вы найдте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы — это лучшие из лучших.

Const
n = 10;

var
D: array1..n of integer;

function Sum3(k: integer): integer;
begin
Sum3 := Dk + Dk + 1 + Dk + 2
end;

var
i: integer;

begin
Randomize;
Writeln(Элементы массива);
for i := 1 to n do
begin Di := Random(11); Write(Di:3) end;
Writeln;
Writeln(Сумма D1..D3: , Sum3(1));
Writeln(Сумма D3..D5: , Sum3(3));
Writeln(Сумма D4..D6: , Sum3(4))
end.

Тестовое решение:
Элементы массива
2 1 5 9 10 2 9 7 2 1
Сумма D1..D3: 8
Сумма D3..D5: 24
Сумма D4..D6: 21

  • 123456789101112131415161718192021222324252627282930313233343536uses crt;const n=10;var a:array1..n of integer;i,k,k0:integer;s:real;beginclrscr;writeln(Массив :);for i:=1 to n dobeginwrite(i, = );read(ai);end;k:=1;for i:=1 to n doif ai<0 thenbegins:=s+ai;inc(k);endelsebeginif ai>0 theninc(k0);end;s:=s/k;writeln;if (k=1) and (k0=0) thenwriteln(Положительных или отрицательных элементов в массиве нет,среднее ариф-ское = 0)elsewriteln(Среднее ариф-ского отрицательных элементов массива =,s:0:2);readkey;end.


  • Добавить комментарий

    Ваш e-mail не будет опубликован. Обязательные поля помечены *