singlepost

помогите решить задачи на Pascal плз) << На главную или назад  

помогите решить лабу плз
Тема: Обработка массивов в программе на TurboPascal 7.0
Цель работы: Изучение возможностей обработки одномерных массивов

1)N=18 Все элементы с нечетными номерами заменить их квадратами.
2)Определить содержит ли массив элементы, равные максимальному элементу.
3)Найти номер первого и последнего положительного элемента.

8 ответов в теме “помогите решить задачи на Pascal плз)”

  1. 7
    Антон Малашка ответил:

    )
    program array_1;

    var
    mas: array [1..18] of longint;
    max: longint;
    i, n, k, l: byte;

    begin

    l := 0;

    for i := 1 to 18 do
    begin
    readln(mas[i]);
    if mas[i] > max then max := mas[i];
    end;

    for i := 1 to 18 do
    begin
    if mas[i] > 0 then k := i;
    if mas[i] = max then l := l + 1;
    end;

    for i := 18 downto 1 do
    begin
    if mas[i] > 0 then n := i;
    end;

    writeln('Первый положительный:', k);
    writeln('Последний положительный: ', n);

    if l = 1 then writeln('Только одно максимальное')
    else writeln('Несколько максимальных');

    for i := 1 to 18 do
    begin
    if i mod 2 <> 0 then writeln(sqr(mas[i]))
    else writeln(mas[i]);
    end;

    end.

    PascalABC.NET, может и неправильно:))

  2. 6
    Константин Конашенков ответил:

    бюджет ? сроки ?

  3. 5
    Роман Викторович ответил:

    спасииибо мэн))

  4. 4
    Александр Сидорович ответил:

    3) Проверь
    Program aaa;
    Var
    a:array [1..100] of Integer;
    n,i,k:Integer;
    Begin
    Writeln('Vvedite n');
    Readln(n);
    Writeln('Vvedite massiv');
    For i:=1 to n do
    Read(a[i]);
    For i:=1 to n do
    If a[i]>0 then
    Begin
    Writeln('Nomer pervogo', i);
    Break;
    End;
    for i:=n downto 1 do
    If a[i]>0 then
    Begin
    Writeln('Nomer poslednego', i);
    Break;
    End;
    End.

  5. 3
    Александр Сидорович ответил:

    2) ОБЯЗАТЕЛЬНО ПРОВЕРЬ
    Program aaa;
    Var
    a:array [1..18] of Integer;
    n,i,max,t:Integer;
    Begin
    Writeln('Vvedite n');
    Readln(n);
    Writeln('Vvedite massiv');
    max:=0;
    t:=0;
    For i:=1 to n do
    Begin
    Read(a[i]);
    If a[i]>max then max:=a[i];
    End;
    For i:=1 to n do
    If a[i]=max then t:=t+1;
    If t>=2 then Writeln('Codershet') else Writeln('Ne sodershit')
    End.

  6. 2
    Александр Сидорович ответил:

    1) как-то так
    Program aaa;
    Var
    a:array [1..18] of Integer;
    i:Integer;
    Begin
    Writeln('Vvedite massiv');
    For i:=1 to 18 do
    Begin
    Read(a[i]);
    If i mod 2 <> 0 then a[i]:=sqr(a[i]);
    Writeln(a[i]);
    End;
    End.

    первый элемент тож будет считаться нечётным

  7. 1
    Константин Конашенков ответил:

    за решение с комментами100р. )

Клуб программистов работает уже ой-ой-ой сколько, а если поточнее, то с 2007 года.