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

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

1. 7
   Антон Малашка ответил:
   31 марта 2010 в 21:05

   )
   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
   Константин Конашенков ответил:
   30 марта 2010 в 21:01

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

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

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

4. 4
   Александр Сидорович ответил:
   28 марта 2010 в 22:05

   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
   Александр Сидорович ответил:
   28 марта 2010 в 20:00

   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
   Александр Сидорович ответил:
   28 марта 2010 в 19:04

   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
   Константин Конашенков ответил:
   28 марта 2010 в 19:04

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