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

Тема: Одномерные массивы

  1. #1 Одномерные массивы 
    Новичок
    Регистрация
    15.12.2011
    Сообщений
    10
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Ввести одномерный массив А целых чисел, вывести его, определить К– количество чётных элементов в нём содержащихся. Далее максимальный элемент массива домножить на К и снова вывести.
    Ответить с цитированием  
     

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

    Код :
    program Zadacha2;
     
    const N=5; {константа N, где N - количество чисел в массиве, оно может быть любым}
    var Massiv: array [1..N] of integer;	{обьявляем массив}
    var K,Max_Elem,Max_Elem_2:integer; 	{K - переменная с кол-вом четных элементов}
    			     		{Max_Elem - максимальный элемент массива}
    			  		{Max_Elem_2 - максимальный элемент массива после домножения на K}
    var i: integer;
    begin
     
     
    for i:=1 to N do
       begin
          writeln ('Введите',' ', i, '-ый element massiva');
          readln (Massiv[i])
          end;
     
    Max_Elem:=Massiv[1];
    K:=0;
     
    for i:=1 to N do
        begin
           if (Massiv[i]mod 2 <> 0) then K:=K+1;
        end;
     
    for i:=1 to N do
        begin
           if Massiv[i] > Max_Elem then Max_Elem:=Massiv[i]
           else break;
        end;
     
     
     
        writeln (K);
    writeln (Max_Elem);
     
    Max_Elem_2:=Max_Elem*K;
    writeln ('Максимальный элемент массива', 'равен', Max_Elem_2);
    writeln ('для выхода нажмите любую клавишу     ');
    readln;
    end.
    Ответить с цитированием  
     

  3. #3  
    Новичок
    Регистрация
    15.12.2011
    Сообщений
    10
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    а можете еще решить?
    Ответить с цитированием  
     

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

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

  6. #6  
    Новичок
    Регистрация
    15.12.2011
    Сообщений
    10
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    а вот почему n=5, ведь этого нет в условии??? а если массив будет больше или меньше. помогите исправить эту ошибку
    Ответить с цитированием  
     

  7. #7  
    Профи
    Регистрация
    31.10.2011
    Адрес
    Планета Земля
    Сообщений
    117
    Сказал(а) спасибо
    7
    Поблагодарили 9 раз(а) в 8 сообщениях
    Цитата Сообщение от оля Посмотреть сообщение
    а вот почему n=5, ведь этого нет в условии??? а если массив будет больше или меньше. помогите исправить эту ошибку
    Число 5 я ввел для примера, можно вместо 5 любое другое ввести. Например, 10 или 17.
    Просто дело в том, что паскаль поддерживает только массивы с фиксированной длиной (т.е когда ты длину указываешь при обьявлении самого массива) - при обьявлении n как переменной, которую нужно ввести с клавиатуры, паскаль выдавал ошибку при компиляции, поэтому пришлось исправить.
    Ответить с цитированием  
     

  8. #8  
    Новичок
    Регистрация
    15.12.2011
    Сообщений
    10
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    все ясно, спасибо
    Ответить с цитированием  
     

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

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

Похожие темы

  1. Ответов: 0
    Последнее сообщение: 14.11.2012, 22:34
  2. Массивы
    от Andrey121121 в разделе Turbo Pascal
    Ответов: 1
    Последнее сообщение: 10.12.2011, 22:24
  3. Ответов: 7
    Последнее сообщение: 25.11.2011, 01:40
  4. Ответов: 0
    Последнее сообщение: 01.06.2011, 14:35
  5. Массивы
    от alf в разделе QBasic
    Ответов: 6
    Последнее сообщение: 30.11.2010, 18:10
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •