Важная информация
Показано с 1 по 2 из 2

Тема: Массивы

  1. #1 Массивы 
    Новичок
    Регистрация
    07.12.2011
    Сообщений
    1
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Помогите решить.уже голова болит !
    Изображения
    • Тип файла: jpg 11121.jpg (21.3 Кб, Просмотров: 14)
    Ответить с цитированием  
     

  2. #2  
    Профи
    Регистрация
    31.10.2011
    Адрес
    Планета Земля
    Сообщений
    117
    Сказал(а) спасибо
    7
    Поблагодарили 9 раз(а) в 8 сообщениях
    Решение первой задачи (на самом деле она довольно несложная):

    Код :
    program  Massivy;
     
    const 
       N=5; {число N - длина массива, можно ввести вместо 5 любое другое число}
     
    var  i: integer; 
    var V,U,R,S:real; 
    var Massiv: array [1..N] of integer;{обьявляем массив}
    begin
       U:=0; { создаем переменную U |
             { где U - сумма элементов массива с нечетными номерами|
       R:=0;    { создаем переменную R }
             { где R - количество нулевых элементов массива//
       S:=0; { создаем переменную S }
             { где S - номер первого нулевого элемента массива}
     for i:=1 to N do
       begin
          writeln ('Vvedite',' ', i, '-yi element massiva');
          readln (Massiv[i])
          end;
     for i:=1 to N do
        begin
        if i mod 2 <> 0 then U:=U+Massiv[i]; 
        end;
    for i:=1 to N do
        begin
          if Massiv[i]=0 then R:=R+1;
          end;
    for i:=1 to N do
          begin
          if Massiv[i]=0 then
          begin
          S:=i;
          break;
          end;
          end;
     
     
    V:=((U/(R+1))+S); {Вычисляем выражение V:=U/(R+1)+S}
     writeln ('Summa elementov massiva s nechetnymi nomerami sostavlyaet', ' ', U);
    writeln ('                              ');
     writeln ('Kolichestvo nulevyh elementov massiva sostavlyaet', ' ', R);
    writeln ('                              ');
     writeln ('Nomer pervogo nulevogo elementa massiva budet - ', ' ', S);
    writeln ('                              ');
    writeln ('Resheniem vyrazheniya V=(U/R+1)+S budet chislo', ' ', V);
    writeln ('                              ');
    writeln ('Dlya vyhoda nazhmi lybuju klavishu');
     readln()
     
    end.
    Ответить с цитированием  
     

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Двумерные массивы
    от Sten52 в разделе QBasic
    Ответов: 4
    Последнее сообщение: 03.06.2012, 14:00
  2. массивы
    от И.Крапивин в разделе QBasic
    Ответов: 4
    Последнее сообщение: 22.11.2011, 21:32
  3. Двумерные массивы
    от nikita в разделе QBasic
    Ответов: 0
    Последнее сообщение: 04.05.2011, 17:36
  4. Массивы и не только)
    от Виолетта в разделе QBasic
    Ответов: 7
    Последнее сообщение: 02.02.2011, 16:01
  5. Массивы
    от alf в разделе QBasic
    Ответов: 6
    Последнее сообщение: 30.11.2010, 18:10
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •