Решить в паскале авc/линейные массивы.№4 вставка. в линейный массив целых чисел на 7-е место вставить число равное квадрату первого элемента.№5. преобразование. дан массив из четного числа элементов. поменять местами его половины

126

452

Посмотреть ответы 2

Ответы на вопрос:

hannahmcdanielp06qjt

Информатика

4,7(10 оценок)

№5 const n=10; var a: array [1..n]of integer; i,r: integer; begin cls; for i: =1 to n do read(a[i]); for i: =1 to(n div 2)do begin r: =a[i]; a[i]: =a[i+(n div 2)]; a[i+(n div 2)]: =r; end; for i: =1 to n do write(a[i]: 3); end.

Диана25122002

Информатика

4,5(89 оценок)

program noname; uses crt; vara: array[1..1000,1..1000] of integer; i,j,min,n,m,l: integer; beginclrscr; write('n='); readln(n); write('m='); readln(m); for i: =1 to n dofor j: =1 to m do beginwrite('a[',i,',',j,']='); readln(a[i,j]); end; for i: =1 to n do begin writeln; for j: =1 to m dowrite(a[i,j],' '); end; writeln;

for i: =1 to n do beginmin: =0; for j: =1 to m doif min> a[i,j] then begin min: =a[i,j]; l: =j; end; if min< > 0 thenwriteln ('v ',i,' stroke indexy poslednego otricatelnogo chisla = ',i,',',l)else writeln ('v ',i,' stroke otricatelnyh chisel net'); end; readkey; end.