Консультация № 189415
18.05.2016, 17:07
0.00 руб.
0 1 1
Здравствуйте! У меня возникли сложности с таким вопросом:

написать программу на языке Паскаль: Создайте массив В из преобразованных по формуле cos(a[i])
элементов массива А .

Обсуждение

давно
Профессионал
153662
1070
18.05.2016, 18:15
общий
это ответ
Здравствуйте, amelya.kuro!
Как-то так. [code lang=pascal]var
a: array[1..10] of integer;
b: array[1..10] of real;
i: integer;
begin
{создаем массив a}
for i:= 1 to 10 do
begin
a[i]:= random(100);
write(a[i]:3);
end;
writeln;
{получаем массив b}
for i:= 1 to 10 do
b[i]:= cos(a[i]);
{выводим результат}
for i:= 1 to 10 do
begin
b[i]:= random(100);
write(b[i]:3);
end;
writeln;

end.
[/code]
Об авторе:
Мои программы со статусом freeware для Windows на моём сайте jonix.ucoz.ru

Форма ответа