заполнить массив числами кратными 13 и отсортировать начиная с элемента 13 по убыванию и найти сумму элементов, которые не сортировали. массив на 30 элеменов
а почему Random(50). что это означает
Programm Mas;
Var Ar:Array [1..30] of integer;
i,j,buf: integer;
Begin
For i:=1 to 30 do
Ar[i]:=13*Random(50);
Ar[1]:=13;
{заполнили массив}
For j:=1 to 30 do
For i:=1 to 30 do
if Ar[i] >Ar[i+1] then
Begin
buf:=Ar[i+1];
Ar[i+1]:=Ar[i];
Ar[i]:=buf;
End;
{отсортировали массив}
End.
Вот пример:
program Desicion;
const
countElement = 30;
mulElement = 13;
var
yourArray: array[1..countElement] of integer;
i, j, summa, buffer: integer;
begin
summa := 0;
for i := 1 to countElement do
begin
repeat
write('Введите значение ', i, '-го элемента массива: ');
readln(yourArray[i]);
until(yourArray[i] mod mulElement = 0);
if i < mulElement then
summa := summa + yourArray[i];
end;
writeln('Массив до сортировки: ');
for i := 1 to countElement do
write(yourArray[i], ' | ');
writeln();
for i := mulElement to countElement - 1 do
for j := mulElement to countElement - 1 do
if (yourArray[j] < yourArray[j+1]) then
begin
buffer := yourArray[j + 1];
yourArray[j + 1] := yourArray[j];
yourArray[j] := buffer;
end;
writeln('Массив после сортировки: ');
for i := 1 to countElement do
write(yourArray[i], ' | ');
writeln();
write('Сумма элементов с 1 по ', mulElement, ': ', summa);
readln();
end.
⇢