akopovarch
?>

Заполнить массив из 10 элементов случайными числами в интервале [- и выполнить инверсию отдельно для 1 и 2 половин массива. пример: исходный массив: 4 -5 3 10 -4 -6 8 -10 1 0 -4 10 3 -5 4 0 1 -10 8 -6

Информатика

Ответы

Natakarpova75732
Ну почему,когда просят написать программу никто никогда не указывает язык программирования.я напишу на языке паскаль с входным и выходным файлом,но если это не тот язык,твоя проблема.(сообщения в фигурных скобках,это комментарии,просто для пояснение,можешь удалить их) program p1; const n=10; var a : array[1..n] of integer; i,b,c: integer; begin  randomize;   assign(input,'input.txt'); reset(input); assign(output,'output.txt'); rewrite(output); for i: =1 to n do {заполнение исходного массива}    a[i]: =random(21)-10;     for i: =1 to n do {вывод исходного массива(можно удалить эти строчки)} write(a[i]: 4); c: =0; {инверсия массива}  for i: =1 to 2 do  begin    b: =a[i];     a[i]: =a[5-c];     a[5-c]: =b;     c: =c+1;   end;   c: =0;   for i: =6 to 8 do  begin    b: =a[i];     a[i]: =a[10-c];     a[10-c]: =b;     c: =c+1;   end;   writeln;     for i: =1 to n do {вывод инверсированого массива}  write(a[i]: 4); close(input); close(output); end.
sahar81305
Var a: array[1..10000] of integer; i,nod,nok,k,n: integer; begin write('n = '); readln(n); write('введите числа (',n,' шт.): '); for i: = 1 to n do       read(a[i]); {поиск нок} nok: =abs(a[1]); for i: = 2 to n do       if abs(a[i])< nok then nok: =abs(a[i]); if nok = 0 then nok: =1; repeat k: =0; for i: = 1 to n do       if a[i] mod nok = 0 then k: =k+1; nok: =nok-1; until k=n; writeln('nok = ',nok+1); {поиск нод} nod: =a[1]; for i: = 2 to n do       if abs(a[i])> nod then nod: =a[i]; repeat k: =0; for i: = 1 to n do       if nod mod a[i] = 0 then k: =k+1; nod: =nod+1; until k=n; writeln('nod = ',nod-1) end.
dkvsadovoe
Var a,b,k,n,m: integer; begin write('введите целое число: '); readln(a); b: =a; n: =0; k: =0; while b< > 0 do     begin     n: =n+1;     b: =b div 10;     end; m: =a mod 10; for n: = 1 to n-1 do       begin       a: =a div 10;       if (m > a mod 10) then             begin             k: =k+1;             m: =a mod 10;             end;       end; if k = n then write('верно') else write('не верно') end. var a: integer; begin write('введите целое число: '); readln(a); while a< > 0 do     begin     write(a mod 10);     a: =a div 10     end; end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Заполнить массив из 10 элементов случайными числами в интервале [- и выполнить инверсию отдельно для 1 и 2 половин массива. пример: исходный массив: 4 -5 3 10 -4 -6 8 -10 1 0 -4 10 3 -5 4 0 1 -10 8 -6
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

smalltalkcoffee5
Светлана308
Stefanidi_Semeikina1896
Тариелович871
vnolenev
kirycha-2000719
Columbia777
Zelinskaya-Andrei
orinvarostov
Anatolii
eleniloy26
mmi15
matveevaev81
ziyaevak
Li-111