Program z4; Var a: array [1..1000] of integer; i, sum, n:integer; S_R: real;Begin write('Введите кол-во элементов - '); readln(n); for i := 1 to n do begin a[i] := random (30); sum:= sum + a[i]; end; S_R:= sum / n; writeln('Cреднее арифметическое - ', S_R); for i := 1 to n do if (a[i] >= S_R) then write(a[i],' '); End.
===== PascalABC.NET =====
begin
ReadSeqIntegerWhile(p -> p <> 0).Count(p -> p.IsEven).Print
end.
begin
write( 'Целых недель = ',234 div 7);
end.
1) п2 - Е (конечный), п3 - Г, п4 - К, п6 - В (начальный), п7 - Д. Точки А и Б нам не интересны. От В есть пути до Д, К и Г. От В до Д - 20, от Д до Е - 15, итого 35. От В до К - 25, от К до Е 5, итого 30. От В до Г - 10, от Г до К - 10, от К до Е - 5, итого 25. Ответ: путь В - Г - К - Е, 25.
2) Нужно определить родителей и детей по их номерам в столбце ID, затем узнать их разницу в возрасте и сверить с условием. Под условие попадает только человек с ID 2045. Ответ 1.
3) Нужно сложить количество стрелок, ведущих через пункт Ж к пункту Л не через пункт З. Их количество 15. Ответ 15.
Какая размерность массива? А вообще просто строишь цикл
for i:= 1 to N do
a[i]:= a[i] + 25;