Создайте файл а, элементы которого являются массивом к=(1; 6,5; 0.3; 4,2; 3,7; 8,6; 0,7; 3,2; ). перепишите из файла а в файл в, все четные (по расположению) элементы. прочитать файл в.
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018 Внимание! Если программа не работает, обновите версию!
begin var k:=Arr(1.0,6.5,0.3,4.2,3.7,8.6,0.7,3.2); k.Println; WriteAllText('FileA.txt',k.Select(t->t).JoinIntoString); var s:=ReadAllText('FileA.txt').ToWords; WriteAllText('FileB.txt', Range(1,s.Length-1,2).Select(i->s[i]).JoinIntoString); ReadAllText('FileB.txt').Println end.
#include <iostream> #include <cstdlib> #include <ctime> int main() { using namespace std; cout << "Enter size of array: "; int N; cin >> N; int * ARR = new int[N]; srand(time(0)); int i; for (i = 0; i < N; ++i) ARR[i] = rand() % 100 + 1;
cout << "Here is an original array:\n"; for (i = 0; i < N; ++i) cout << ARR[i] << " "; cout << endl;
int temp = ARR[N - 1]; for (i = N - 1; i > 0; --i) ARR[i] = ARR[i - 1]; ARR[0] = temp;
cout << "\nHere is a new array:\n"; for (i = 0; i < N; ++i) cout << ARR[i] << " "; cout << endl;
![Садекватным объяснением! 1) дан фрагмент программы: var s: string[6]; n: integer; begin s: ='отлично](/tpl/images/0574/8961/c7120.jpg)
Внимание! Если программа не работает, обновите версию!
begin
var k:=Arr(1.0,6.5,0.3,4.2,3.7,8.6,0.7,3.2); k.Println;
WriteAllText('FileA.txt',k.Select(t->t).JoinIntoString);
var s:=ReadAllText('FileA.txt').ToWords;
WriteAllText('FileB.txt',
Range(1,s.Length-1,2).Select(i->s[i]).JoinIntoString);
ReadAllText('FileB.txt').Println
end.
Результат
1 6.5 0.3 4.2 3.7 8.6 0.7 3.2
6.5 4.2 8.6 3.2