Просто,скачай другую программу.Или же зайди,в настройки и нажми на яркость.
5 итераций цикла for, на каждой значение переменной s увеличивается на 7: s = 7 + 7 + 7 + 7 + 7 = 35
Var A:array[1..10] of integer;
i: integer;
begin
randomize;
for i:=1 to 10 do begin
A[i]:=(random(101)-50);
writeln (A[i]);
end;
<span>end.
</span>
1. face= <font> "Название шрифта"</font>
2. border ="Число" ширина таблица
3. Цвет ячейки bgcolor="Цвет"
4.1 Количество строк
4.2 Количество столбцов - атрибут cols="Число"
Var
i,n,m:integer;
k,s:longint;
begin
Write('Задайте количество чисел: '); Read(n);
s:=0; m:=0;
Writeln('Вводите числа...');
for i:=1 to n do
begin
Read(k);
if (k mod 2)=0 then begin s:=s+k*k; Inc(m) end
end;
Writeln('Среднее квадратов четных чисел: ',s/m:0:4)
end.
<em><u>Тестовое решение:</u></em>
Задайте количество чисел: 7
Вводите числа...
36
-18
15
8
14
6
9
Среднее квадратов четных чисел: 383.2000