Создайте массив, запрограммировав следующий алгоритм
3 штуки

1
var
I,J,k:integer;
m:array[1..100, 1..20, 1..75] of real;
begin
for I:=1 to 2 do
for J:= 1 to 100 do
m[i,j]:=cos(i+2*j)+j*sin((sqr(j))/2);
end.

Ответы и объяснения

2014-02-07T15:21:12+04:00
Var
I,J:integer;
m:array[1..2, 1..100] of real;
begin
for I:=1 to 2 do
for J:= 1 to 100 do 
m[i,j]:=cos(i+2*j)+j*sin((sqr(j))/2);
end.   

var
I,J,k:integer;
m:array[1..100, 1..20, 1..75] of real;
begin
for I:=1 to 100 do
for J:= 1 to 20do 
for k:= 1 to 75 do 
m[i,j,k]:=cos(i+2*j)+j*sin((sqr(j))/k);
end.    первое




var
I,J:integer;
a:array[1..10, 1..20] of integer;
begin
for I:=1 to 10 do
for J:= 1 to 20do 
m[i,j,k]:=int(cos(i+2*j))+j*sin((sqr(j))/i);
end.   третье

а в чем проблема ?
да я туплю) не могу норм написать)
а позже сможете ?)
вроде все, но не 100% гарантия)
спасибо большое !!))