В условии, скорее всего, вместо i=0 должно быть S=0. i = 1: A(1) = 1, S = S+A(i) = 0+1 = 1 i = 2: A(2) = 2, S = 1+2 = 3 I = 3: A(3) = 3, S = 3+3 = 6 i = 4: A(4) = 4, S = 6+4 = 10 i = 5: A(5) = 5, S = 10+5 = 15
Const n=10; var a:array [1..n] of integer; i,j,k,l:integer; begin {создание и вывод массива} for i:=1 to n do begin a[i]:=random(21)-10; write (a[i],' '); end; writeln; {сортировка массива} for j:=1 to n do for i:=1 to n-1 do if a[i]>a[i+1] then begin k:=a[i]; a[i]:=a[i+1]; a[i+1]:=k; end; {Удаление нулей} k:=0; while k<>n do begin k:=k+1; if a[k]=0 then begin l:=l+1; for i:=k to n-1 do a[i]:=a[i+1]; end; end; {Вывод массива} for i:=1 to n-l do write (a[i],' '); end.
Задача № 1) Код программы получился довольно таки большой , но можно сам файл *.pas Закинуть в интернет и оттуда скачать. Задача №2)
uses crt; var m:array[1..100,1..100] of integer; i,i1,j,str,stb,temp:integer; begin clrscr; введите число строк массива: '); readln(str); введите число Столбцов массива: '); readln(stb); clrscr; writeln('Массиа из ',str,' строк, и из ',stb,' столбцов успешно создан!'); writeln; for i:=1 to str do begin for j:=1 to stb do begin m[i,j]:=random(80)+1; write(m[i,j]:3,' '); end; writeln; end; writeln; writeln(' отсортирован по убыванию'); writeln; for i1:=1 to str do for i:=1 to str-1 do for j:=i+1 to str do if m[i1,i]<m[i1,j] then begin temp:=m[i1,i]; m[i1,i]:=m[i1,j]; m[i1,j]:=temp;end; writeln; for i:=1 to str do begin for j:=1 to stb do begin write(m[i,j]:3,' '); end; writeln; end; readkey; end. Запускаешь водишь строк и столбцов после нажимаешь Enter программы сделает своё дело
