Code
Program num1;
Uses CRT;
Const n = 10;
Var a: Array[1..n] of Integer;
i: Byte;
Begin
ClrScr;
Randomize;
Writeln('Source array');
For i := 1 to n do
Begin
a[i] := Random(10)-5;
Write(a[i]:4);
End;
Writeln(#13#10,'New array:');
Write(a[1]:4);
For i := 2 to n-1 do
Begin
If (odd(i)) then a[i] := a[i] + a[n]
else a[i] := a[i] + a[1];
Write(a[i]:4);
End;
Write(a[n]:4);
ReadKey;
End.
Code
Program num2;
Uses CRT;
Const n = 4;
Var a: Array[1..n, 1..n] of Integer;
i, j: Byte;
t: Integer;
Begin
ClrScr; Randomize;
Writeln('Source array');
For i := 1 to n do
Begin
For j := 1 to n do
Begin
a[i,j] := Random(10)-5;
Write(a[i,j]:4);
End;
Writeln;
End;
Writeln(#13#10,'New Array');
For i := 1 to n do
Begin
t := a[1,i];
a[1,i] := a[n,i];
a[n,i] := t;
End;
For i := 1 to n do
Begin
For j := 1 to n do
Begin
Write(a[i,j]:4);
End;
Writeln;
End;
ReadKey;
End.
Code
Program num3;
Uses CRT;
Var s: String;
i: Byte;
Begin
ClrScr;
Write('Enter the string: '); Readln(s);
For i := 2 to length(s) do
Begin
If (s[i] in [' ']) or (i = length(s)) then
Begin
Writeln(Copy(s,1,i));
Break;
End;
End;
ReadKey;
End.
Code
Program num4;
Uses CRT;
const file1 = 'input.txt';
file2 = 'output.txt';
Var f1, f2: text;
s: String;
i: Byte;
Begin
Assign(f1, file1);
ReSet(f1);
Assign(f2, file2);
ReWrite(f2);
While not (EoF(f1)) do
Begin
Readln(f1, s);
For i := 1 to length(s) do
Begin
If (s[i] in ['.',',',':',';','!','?','-']) then Delete(s, i, 1);
End;
Writeln(f2, s);
End;
Close(f1);
Close(f2);
End.
Вроде бы так. =) Задачки элементарные. Но надеюсь, что я не допустил ошибку. Проверь!
P.S. некоторые задачи я бы оптимизировал, но думаю, если этим заняться, ты точно не разберешься почему так, а не иначе. Так что сдавай эти!
