domingo, 22 de março de 2009

Este é o exercício nº 6 do segundo desafio de Ltp2 ...

- Leia um vetor de 40 posições e atribua valor 0 para todos os elementos que possuírem valor negativo.
Postado por às

3 comentários:

  1. Maiara - Informática25 de março de 2009 às 08:00

    postado por Rafael!


    program sim6;
    type
    vetor=array[1..40] of real;
    var
    num:vetor;
    i:integer;
    begin
    clrscr;
    for i:=1 to 40 do
    begin
    gotoxy(4,4);
    writeln('Numera‡Æo');
    gotoxy(4,4+i);
    readln(num[i]);
    if(num[i]<0)then
    begin
    num[i]:=0;
    end;
    end;
    for i:=1 to 40 do
    begin
    gotoxy(19,4);
    writeln('Valor');
    gotoxy(19,4+i);
    writeln(num[i]:2:0);
    end;
    readln;
    readln;
    end.


    Se haver algum erro me fala. "Bjos meu liga!"

    ResponderExcluir
  2. Anônimo25 de março de 2009 às 15:11

    Queridos alunos,
    gostaria que vcs ajudassem aos colegas a responderem aos desafios nos blogs. Apresentem ideias, sugestões, dicas de como poderão resolver os desafios.

    Abraços!!

    Professora Aline

    ResponderExcluir
  3. Anônimo26 de março de 2009 às 16:58

    Grupo Insanos

    program asd;
    type
    vetorA=array[1..40]of integer;
    var
    A:vetorA;
    I:integer;
    begin
    for I:=1 to 40 do
    begin
    readln(A[I]);
    if A[I] <0 then
    A[I] := 0;
    end;
    writeln(A[I]);
    end.

    ResponderExcluir

Assinar: Postar comentários (Atom)