Предмет: Информатика,
автор: reykdobqc
PASCAL 35 баллов дам СРОЧНО Задан массив X из 8 элементов. Сформировать массив Y по правилу:
Приложения:
![](https://files.topotvet.com/i/bed/bed47bcdcdaa34209fbb668ceb117c8e.png)
Ответы
Автор ответа:
1
var x,y: array[1..8] of real;
i: integer;
begin
write('x: ');
for i:=1 to 8 do begin
x[i]:=random(20)*1.0;
write(x[i],' ');
end;
writeln;
for i:=1 to 8 do
if i mod 2=0 then y[i]:=4*x[i]
else y[i]:=cos(2*x[i]);
write('y: ');
for i:=1 to 8 do write(y[i],' ');
end.
Похожие вопросы
Предмет: Литература,
автор: xxiqwii
Предмет: Литература,
автор: aliskalisicka91
Предмет: История,
автор: rsybdessj
Предмет: Математика,
автор: казактилиненжаттығу
Предмет: Геометрия,
автор: Сверхразум111