Ребят плз кто в языке Си шарит. Исходные данные- Массив С[15] нецелых элементов вводят с клавиатуры.
Действия по обработке массива- В массиве С найти произведение ненулевых элементов, количество элементов, превышающих значение среднего арифметического элементов массива.Нужен код рабочий.
uses crt;
type mas=array[1..1000] of integer;
var a:mas;
n,i:integer;
procedure gnomesort(var arr:mas; size : Integer);
var i, j, t : Integer;
begin
i := 2;
j := 3;
while i <= size do
begin
if arr[i-1] <= arr[i] then
begin
i := j;
j := j + 1
end
else
begin
t := arr[i-1];
arr[i-1] := arr[i];
arr[i] := t;
i := i - 1;
if i = 1 then
begin
i := j;
j := j + 1
end
end
end;
end; begin
write('Размер массива n=');
read(n);
writeln('Исходный массив:');
for i:=1 to n do
read(a[i]);
writeln;
gnomesort(a,n);
writeln('Результат сортировки:');
for i:=1 to n do
write(a[i],' ');
end.
Функция «Упорядочить» предлагает различные варианты группировки файлов в соответствии с типом контента, хранящегося в библиотеке. При этом разные упорядочения действуют по-разному в зависимости от библиотеки.
Стоит также учитывать, что разные группировки используют разные варианты представления для удобства восприятия. Некоторые переключают текущий вид на «Крупные значки» (Large Icons), другие используют вид «Таблица» (Details). Тем не менее, представление можно самостоятельно изменить на любое другое. Чтобы отменить группировку и восстановить изначальное представление, можно воспользоваться опцией «Очистить изменения» (Clear Changes) в меню «Упорядочить».