Составить программу на паскале для обработки массива z=(2.13; 14.1; −13.66; 0; −2; −16.5; 12; 142.3; 122; 111) при b = 3. посчитать количество и напечатать номера элементов, которые больше b, с нечетными номерами. (30 )
составить программу на паскале для обработки двумерного массива размерностью 3*4. массив заполнить самостоятельно. вычислить сумму положительных элементов каждой строки двумерного массива. (30 )
составить программу на паскале, которая удалит все пробелы из текста. текст: «информатика − наука, изучающая структуру, общие свойства и методы передачи информации». (40 )
на проверку нужно прислать коды программ и результаты работы.
язык программирования python
def heapify(nums, heap_size, root_index):
largest = root_index
left_child = (2 * root_index) + 1
right_child = (2 * root_index) + 2
if left_child < heap_size and nums[left_child] > nums[largest]:
largest = left_child
if right_child < heap_size and nums[right_child] > nums[largest]:
largest = right_child
if largest != root_index:
nums[root_index], nums[largest] = nums[largest], nums[root_index]
heapify(nums, heap_size, largest)
def heap_sort(nums):
n = len(nums)
for i in range(n, -1, -1):
heapify(nums, n, i)
for i in range(n - 1, 0, -1):
nums[i], nums[0] = nums[0], nums[i]
heapify(nums, i, 0)
list_of_nums = [int(item) for item in input('Введите элементы через пробел: ').split()]
heap_sort(list_of_nums)
print(list_of_nums)
Var a:array[1..50] of byte;
n,p, i,k,m,j,x,y,z: integer;
begin
writeln('Введите количество элементов');
readln(p);
repeat; - обратите внимание, что Вы написали repead, хотя нужно repeat.
n:=4;
for i:=n downto 1 do begin
a[i]:=p mod 10;
p:= p div 10;
end;
For i:=1 To n-1 Do Begin
k := i;
For j := i + 1 To n Do
If a[j] >= a[k] Then
k := j;
m := a[i];
a[i] := a[k];
a[k] := m;
end;
x:=a[1]*1000+a[2]*100+a[3]*10+a[4];
For i := 1 To N - 1 Do Begin
k := i;
For j := i + 1 To n Do
If a[j] <= a[k] Then
k := j;
m := a[i];
a[i] := a[k];
a[k] := m;
end;
y:=a[1]*1000+a[2]*100+a[3]*10+a[4];
z:=x-y;
until z=p;
writeln(z);
end.