Чтобы в другое время тебя этот ужасный звук не беспокоил: все вместе спустили и всем хорошо)))
Const
n = 10;
var
a: array[1..n] of integer;
i: integer;
begin
Write('Элементы массива: ');
for i := 1 to n do
begin
if (i mod 2) = 0 then a[i] := 3 * i else a[i] := i;
Write(a[i]:3)
end
end.
Тестовое решение:
Элементы массива: 1 6 3 12 5 18 7 24 9 30
Это статус. Кинь ответы свои на инфознайку
Uses crt;
var x,y,result: real;
begin
readln(x,y);
result:=cos(x)/pi-2*x+16*x*cos(x*y)-2;
writeln(result:7:4);
<span>end.</span>
Ответ:
Коротко :хз, хз, хз, хз, хз, хз, хз
Сорян знал бы помог