помагите плиз с задачками на паскале...

[Nightt]

Здравстуйте, помогите пожалуйста

задание по теме «Файлы»
1.Дан файл, содержащий текст, записанный строчными латинскими буквами. Получить в другом файле тот же текст, записанный заглавными буквами.

задание по теме «Комбинированный тип данных»
2.Даны результаты переписи населения. Определить фамилии, имена и подсчитать общее число жителей, родившихся после 2000 года.

задание по теме «Массивы»
3.Дан одномерный массив. Не используя другого массива, переставить элементы массива в обратном порядке.

[__STDC__]

ну первая к примеру так..

const
	fin  = 'in.txt';
	fout = 'out.txt';

function upper(s:string):string;
var
	i:byte;
begin
	for i:=1 to length(s) do
		s[i] := chr(ord(s[i])-32);
	upper := s;
end;

var
	f1,f2:text;
	tmp:string;
begin
	assign(f1,fin); assign(f2,fout);
	reset(f1);      rewrite(f2);
	while not(eof(f1)) do begin
		readln(f1,tmp);
		writeln(f2,upper(tmp));
	end;
	close(f1); close(f2);
end.

ну третья как-нибудь так... можно вывод только оформить как процедуру, будет лучше... ну сами доделайте

const
	n = 10;
	
procedure swap(var x,y:integer);
var
	tmp:integer;
begin
	tmp := x;
	x   := y;
	y   := tmp;
end;
	
var
	x:array[1..n] of integer;
	i:integer;
begin
	randomize;
	for i:=1 to n do begin
		x[i] := random(10);
		write(x[i]:3);
	end;
	writeln;
	for i:=1 to (n div 2) do 
		swap(x[i],x[n-i+1]);
	for i:=1 to n do 
		write(x[i]:3);
	readln;
end.

вторую не хочу делать.. лень..

[Вера123]

помогите...надо создать массив в паскале...вот задание...После введения из клавиатуры произвольного одномерного массива целых чисел (в пределах знакового целого типа) вывести на экран непарные из них (по 10 в строке в виде столбцов). Введение каждого числа заканч. нажатиям <Enter>, введение прекращается введением числа 0. Одинаковые числа выводятся один раз.
вот попытки....

uses crt;
const n=99;
var k,i:integer; a:array [1..n] of integer; b:array [1..n] of integer;

begin
writeln ('vvedite massuv');
repeat i:=1;
readln (a[i]);
until a[i]=0 ;

begin k:=0;
if a[i] mod 2=0 then inc(k);
if a[i] mod 2=0 then inc(b[i]);
read(b[i]);
for i:=1 to k do
write(b[i]:10);
end;
end.

__STDC__, помоги...только на тебя вся надежда...

[GROWZER]

const n=99;
var         k,i,m,c:integer; 
             a:array [1..n] of integer; 
             b:array[1..n] of integer;
             flag:boolean;


begin
   writeln ('vvedite massuv');
   i:=0;
   repeat
      inc(i);
      readln (a[i]); 
   until a[i]=0 ;
   k:=0;
   m:=1;
   for k:=1 to i do
    begin
      if ((a[k] mod 2) =0) then // првоерка на парность....
        begin
          flag:=true; 
          for c:=1 to m do //проверка на повторения в новом масиве....
            begin
               if (b[c]=a[k]) then flag:=false;
            end;
          if (flag=true) then b[m]:=a[k]; // формируем новый масив....
           inc(m);
        end; 
    end;

// и далше уже выводим полученый масив....

for i:=1 to m do
  begin
    write (a[i], "  ");
    if (i=10) then writeln();
  end;


End.

гдето так наврно....

[Вера123]

Прога не работает...пишет все то самое...не удаляет парные и одинаковые елементы...блин...

[Anatole]

Попробую поправить:

onst n=99;
var         k,i,m,c:integer; 
             a:array [1..n] of integer; 
             b:array[1..n] of integer;
             flag:boolean;


begin
   writeln ('vvedite massuv');
   i:=0;
   repeat
      inc(i);
      readln (a[i]); 
   until a[i]=0 ;
   k:=0;
   m:=0;
   for k:=1 to i do
    begin
      if odd(a[k]) then // прверка на парность....
        begin
          flag:=true; 
          for c:=1 to m do //проверка на повторения в новом масиве....
             if (b[c]=a[k]) then flag:=false;
          if flag then 
            begin
            inc(m); 
            b[m]:=a[k]; // формируем новый масив....
           end;
        end; 
    end;

// и далше уже выводим полученый масив....

for i:=1 to m do
  begin
    write (b[i]:6, "  ");
    if (i mod 10) = 0 then writeln;
  end;