uses crt;
var
a:array[1..1000] of integer;
i,n,sum:integer;
begin
write('Введите число: ');
read(n);
for i:=1 to n-1 do
if (i mod 3=0) and (i mod 5<>0) then sum:=sum+i;
write(sum);
end.
Var ar:array of integer;
i,n:integer;
procedure FirstPr(ar:array of integer;n:integer);
var i,k:integer;
begin;
for i:=1 to n do
if ar[i]<=25 then inc(k);
writeln(k);
end;
procedure SecPr(ar:array of integer;n:integer);
var i,k:integer;
begin;
for i:=1 to n do
if (ar[i]>=40) and (ar[i]<=50) then inc(k);
writeln(k);
end;
begin;
randomize;
readln(n);
setlength(ar,n+1);
writeln('Array');
for i:=1 to n do
begin;
ar[i]:=random(0,50);
write(ar[i]:4);
end;
writeln;
FirstPr(ar,n);
SecPr(ar,n);
<span>end.</span>
<span> Линия
проходит через центр тяжести выборочных данных,
то есть выполняется равенство:
y=b1+sum(bi·xi)</span>
1. Внесение изменений в рисунок
<span>2. Тип графического редактора </span>
3. Устройство ввода в компьютер графической информации.
4. Создание движущихся изображений
5. Графопостроитель
6. Устройство вывода графической информации
7. Устройство для хранения изображения
8. Наименьший элемент экрана
9. Вид компьютерной графики
Это были вопросы
150000 по моему.
Потому-что с марта до декабря 10 месяцев м поэтому 500000 умнажаем на 3 делим на 10 дробна