Составьте блок-схему по задаче Задан одномерный числовой массив размером n. Удалить его k-й элемент, - id1344913520200119 от verahohlova 19.01.2020 04:47

Question

Информатика: Составьте блок-схему по задаче Задан одномерный числовой массив размером n. Удалить его k-й элемент, смещая все, что стояло за ним, вперед на одно место, что бы не было «дырки» в массиве. Полученную последовательность чисел разместить в два новых массива, включая в первый элементы с четными индексами, а во второй с нечетными. Полученные массивы вывести на печать.

verahohlova · Accepted Answer

Var a:array[1..100,1..100] of integer; i,j,n,m,max,min:integer; begin write ( Введите количество строк: ); read(n); writeln; write ( Введите количество элементов в строке: ); read(m); writeln; writeln( Введите массив: ); for i:=1 to n do begin for j:=1 to m do begin write( a[ ,i, , ,j, ]= ); read(a[i,j]); end; writeln; end; writeln; writeln( Исходный массив: ); for i:=1 to n do begin for j:=1 to m do write(a[i,j], ); writeln; end; writeln; writeln( Конечный массив: ); for i:=1 to n do begin min:=a[i,1];...

MOGZ ответил