Цитата:
Сообщение от BLADEE
да поповоду 1 задачи все правельно тока должно быть так
10 23 43 123 3221
6442 246 86 46 20
там же написано его удвоить
|
Читайте ВНИМАТЕЛЬНО формулировку задачи:
Цитата:
Дан файл целых чисел. Удвоить его размер, записав в конце файла все его исходные элементы в обратном порядке.
|
То есть не числа надо удваивать, а размер файла, путем добавления в него ТЕХ ЖЕ ЧИСЕЛ, но выстроенных в обратом порядке.
А по поводу второй задачи - ладно, добавлю еще генерацию самогО массива.
Цитата:
Дан массив из N вещественных чисел . Сгенерировать строку, состоящую из четных элементов массива, разделенных пробелами. Все числа должны быть представлены с точностью до 4 знаков после запятой.
|
Код:
CONST
N=10;
VAR
A:ARRAY[1..N] of REAL;
i:INTEGER;
BEGIN
Randomize;
WriteLn('Initial array:');
For i:=1 to N do
begin
A[i]:=Random*10;
Write(A[i]:7:4);
end;
WriteLn;
WriteLn;
WriteLn('Even-placed elements:');
i:=2;
Repeat
Write(A[i]:7:4);
INC(i,2);
Until i>N;
WriteLn;
ReadLn;
END.