//PascalABC.Net 3.2 begin var a:=ReadArrInteger ('Вводите массив: ', readinteger('Кол-во элементов: ')); for var i:=0 to length(a)-1 do if a[i].isodd then a[i]:=sqr(i+1); a.Println; a.Println; end.
{Лови прогу для одномерного массива. Если он двумерный, могу модифицировать. Должна работать, не работает - отпишись, отыщу паскаль и исправлю. Кидай прям весь ответ, кэп. Комментарии подотри, опять же кэп}
program massiv; var x:array[1..10] of real; n, i:integer; s:real;
begin writeln('Vvedite razmer massiva'); readln(n); if (n<1) or (n>10) then writeln('Neverno zadano znacheniye razmera massiva') else begin {check: +} for i:=1 to n do begin writeln('Vvedite element ', i, 'iz ', n); readln(x[i]); end; {enter the array} s:=0; for i:=1 to n do begin s:=s+power(x[i], 3); end; writeln(s:2:2); end; readln; {stop here to read the program answer} end.
Вот так пойдет? дан массив. заменить элементы с нечетными номерами на квадраты их номеров.
program tt;uses wincrt; type Tmas=array[1..100] of real; var d,a:Tmas; i,j,n:byte; procedure enter_d(n:byte; var d:Tmas); begin randomize; for i:=1 to n do begin d[i]:=random(40); write(d[i]:0:0,' '); end; writeln; end;
procedure form_a(n:byte;d:Tmas;var a:Tmas); begin for i:=1 to n do begin if odd(i)=true then a[i]:=d[i]/i else a[i]:=sqr(d[i]); end; end;
procedure show_a(a:Tmas); begin for i:=1 to n do write(a[i]:0:2,' '); end; end; BEGIN ClrScr; writeln('Введите размер массива: '); readln(n); enter_d(n,d); form_a(n,d,a); show_a(a); END.
begin
var a:=ReadArrInteger ('Вводите массив: ', readinteger('Кол-во элементов: '));
for var i:=0 to length(a)-1 do if a[i].isodd then a[i]:=sqr(i+1);
a.Println;
a.Println;
end.