задан массив состоящий из 10 элементов сформировать два массива по 5 элементов каждый включая в первый элементы исходного массива с чётными индексами а во второй с нечётными.сделайте в PascalABC.Net
Файловая система позволяет систематизировать программы и данные и организовать упорядоченное управление этими объектами. На операционные системы персональных компьютеров наложила глубокий отпечаток концепция файловой системы, лежащей в основе ОС Unix. В ОС Unix подсистема ввода-вывода унифицирует доступа как к файлам, так и к периферийным устройствам. Под файлом при этом понимают набор данных на диске, терминале или каком-либо другом устройстве. Файловая система — это функциональная часть операционной системы, обеспечивающая выполнение операций над файлами. Файловая система позволяет работать с файлами и директориями (каталогами) независимо от их содержимого, размера, типа и т. д. Файловая система – это система управления данными. Система управления данными – система, пользователи которой освобождаются от большинства операций по физическому манипулированию файлами и могут сосредоточить внимание главным образом на логических свойствах данных. Файловые системы ОС создают для пользователей некоторое виртуальное представление внешних запоминающих устройств, позволяя работать с ними не на низком уровне команд управления физическими устройствами, а на высоком уровне наборов и структур данных. Файловая система (назначение): скрывает картину реального расположения информации во внешней памяти; обеспечивает независимость программ от особенностей конкретной конфигурации компьютера (логический уровень работы с файлами); обеспечивает стандартные реакции на ошибки, возникающие при обмене данными.
Procedure TForm1.Button1Click(Sender: TObject); var i1,i2,i3 : Integer; kk : Integer; Chislo : Integer; begin Memo1.Clear; kk := 0; for i1 := 1 to 9 do for i2 := 0 to 9 do for i3 := 0 to 9 do if ( (i1<>i2) and (i1<>i3) and (i2<>i3) ) then if ( Frac((i1+i2+i3)/7)=0 ) then begin Chislo := i1*100 + i2*10 + i3; if ( Frac(Chislo/7)=0 ) then begin Memo1.Lines.Append(inttostr(Chislo)); inc(kk); end; end; end;
var
i: integer;
a: array [1..10] of integer;
b, c: array [1..5] of integer;
begin
writeln('Исходный массив:');
randomize;
for i := 1 to 10 do
begin
a[i] := random(20) - 10;
write(a[i], ', ');
if i mod 2 = 0 then b[trunc((i - 1) / 2) + 1] := a[i] else c[trunc((i - 1) / 2) + 1] := a[i];
end;
writeln;
writeln('Полученные массивы:');
for i := 1 to 5 do write(b[i], ' , '); writeln;
for i := 1 to 5 do write(c[i], ' , ');
end.
Объяснение: