массивы

Тема в разделе "Pascal and Delphi", создана пользователем sestrenka141989, 7 апр 2010.

  1. sestrenka141989

    sestrenka141989 Гость

    1. Дан массив размера N. Осуществить циклический сдвиг элементов массива налево на одну позицию.

    2. Дана целочисленная матрица размера M x N. Вывести номер ее последнего столбика, который содержит ровное количество додатних и отрицательных элементов (нулевые элементы не учитываются). Если таких столбиков нет, то вывести 0.
     
  2. sestrenka141989

    sestrenka141989 Гость

    никто не знает? :)
     
  3. vital

    vital Больной Компом Детектед
    Команда форума Web Team

    Регистрация:
    29 янв 2006
    Сообщения:
    2.474
    Симпатии:
    27
    Знают все.
    вы<div class="sp-wrap"><div class="sp-head-wrap"><div class="sp-head folded clickable">ЭТО прочитайте</div></div><div class="sp-body"><div class="sp-content">
    И подумайте. Всем банально лень. Сфигали вы решили, что вам вот так возьмут и просто так будут решать _ВАШИ_ _ПРИМИТИВНЫЕ_задачи?
    ЗЫ.
    То что под спойлером - это правила этого подфорума. Они есть и выше на странице..
     
  4. hosm

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
    и не забудьте перевести условие на русский язык)
     
  5. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    А головой подумать?(Хотя бы попытались сами что то сделать)

    1. Дан массив размера N. Осуществить циклический сдвиг элементов массива налево на одну позицию.
    Код (Delphi):
    t:=a[1]
    for i:=2 to N do
    a[i-1]:=a[i];

    a[n]:=t;
    2. Дана целочисленная матрица размера M x N. Вывести номер ее последнего столбика, который содержит ровное количество додатних и отрицательных элементов (нулевые элементы не учитываются). Если таких столбиков нет, то вывести 0.

    <!--shcode--><pre><code class='Delphi'>var kp,km,ind,i,j:integer;
    begin
    kp:=0;
    km:=0;
    ind:=0;
    for j:=1 to n do
    begin
    kp:=0;
    km:=0;
    for i:=1 to m do
    begin
    if a[i,j]<0 then km:=km+1;
    if a[i,j]>0 then kp:=kp+1;
    end;
    if kp=km then ind:=i;
    end;
    writeln(ind);
    readln;
    end.[/CODE]

    P.S.Возможно второй код надо поправить


    :)
    http://www.cyberforum.ru/pascal/thread113966.html
     
Загрузка...
Похожие Темы - массивы
  1. Искушенный
    Ответов:
    0
    Просмотров:
    432
  2. Искушенный
    Ответов:
    1
    Просмотров:
    424
  3. Искушенный
    Ответов:
    1
    Просмотров:
    392
  4. Rpp
    Ответов:
    1
    Просмотров:
    812
  5. romanovbadboy2
    Ответов:
    0
    Просмотров:
    670

Поделиться этой страницей