+ Ответить в теме
Показано с 1 по 2 из 2

Тема: МАССИВЫ

  1. #1
    dummy Наташок is on a distinguished road
    Регистрация
    30.11.2010
    Сообщений
    3
    Вес репутации
    0

    По умолчанию МАССИВЫ

    Дан массив из 10 целых чисел.Определить,сколько из них принимает наименьшее значение.
    min:=a[1];
    n:=1;
    for i:=1 to 10 do
    begin
    if a[i]<min then
    begin
    min:=a[i];
    n:=1;
    end
    else if a[i]=min then
    inc(n);
    end;
    или так

    Program m1;
    uses crt;
    Var mas:array [1..10] of integer;
    x,i: integer;
    n:integer;
    begin
    clrscr;
    n:=0; Program m1;
    uses crt;
    Var mas:array [1..10] of integer;
    x,i: integer;
    n:integer;
    begin
    clrscr;
    n:=0;
    Writeln ('Введите наименьшее значение!');
    readln (x);
    Writeln ('Введите массив:');
    for i:=1 to 10 do
    begin write ('[',i,']='); readln (mas[i]);
    if mas[i] = x then
    n:=n+1; end;
    write ('Вот введеный вами массив -');
    for i:=1 to 10 do begin write ('');
    write (mas[i]:3,' '); end; writeln;
    writeln('_________________________________________ _____________');
    Writeln ('количество элементов = ',n);
    end.

  2. По умолчанию

     
    Хотите избавиться от рекламы? Зарегистрируйтесь
  3. #2
    Moderator Куратор
    system architect
    Игорь Акопян is on a distinguished road Аватар для Игорь Акопян
    Регистрация
    13.10.2004
    Адрес
    СПБ
    Возраст
    44
    Сообщений
    1,419
    Вес репутации
    17

    По умолчанию Re: МАССИВЫ

    и чо это? ворос? ответ? робот? удалю ведь нафик!

+ Ответить в теме

Похожие темы

  1. массивы в С++
    от Мария 001 в разделе C и C++
  2. Массивы
    Помогите плиз решить задачу по массивам: Найти все элементы массива целых чисел A у которых последняя цифра 5.)
    от PIPL в разделе задачи на Паскале и Delphi
  3. TP-массивы
    Парни помогите написать программы: 1)Дан двумерный массив размерностью 4х6, заполненный целыми числами с клавиатуры. Сформулировать одномерный...
    от XoMo4KuH в разделе Решите мне задачку
  4. Массивы, но массивы не использовать.
    Отредактируйте, пожалуйста мой код!! Задание: Даны положительные числа N,a1,...,aN. Используя только элементарные матем. операции(+,-,*,/),...
    от Бабочка в разделе C и C++
  5. Массивы В С++
    Помогите пажлуста решить задачу Текст задачи таков Дана целочисленная прямоугольная матрица надо опредилить № строки в которой находится самая...
    от Razum в разделе Решите мне задачку

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения