randomize; {чтоб рандом был разный для каждого запуска програмы}
for i: = 1 to 100 do
if i mod 2 =0 then a[i] : = 2*random(100)+1; {формула нечетного числа}
else a[i]: =2*random(100);
end.
есличто непонятно - пиши в сообщения, растолкую
Ответ дал: Гость
var i: integer; s: real;
begin s : = 0; for i : = 1 to 100 do s : = s + i * i; writeln(s: 7: 0); end.
Ответ дал: Гость
значение формулы срзнач=(d1: d4) равно 5
можно подставить любые числа и проверить, в любом случае будет 5. а еще в диапазоне d2: d4 3 ячейки, сумма 15, добавилась еще одна ячейка d1, в ней значение 5. 15+5=20, а среднее 20: 4=5
Популярные вопросы