profile
[/banner_gorizont_adaptive]
Размещено 4 года назад по предмету Информатика от vkbc

Ребят помогите пожалуйста решить задачку на турбо паскале

Дан одномернный массив из 10 целых чисел.Вывести массив на экран в строчку.а так же вывести на экран номер первого  элемента, равного  нулю, и нуль при отсутсвии такого элемента в массиве.

Ниже приведен рекомендованный вид экрана  во время выполнения программы, для самопроверки результата(данные, введенные пользователем, выделены полужирным шрифтом).

 

Дан одномерный массив сотоящий из 10 элементов.Вывод на экрна  номер первого элемента, равного нуляю, и нуль при отсутсвии такого элемента в массиве.

Ввод элеентов массива

Введите 1 элемент массива: 0

Введите 2 элемент массива: 1 и т.д. до 9 

Очистка Экрана

0 1 2 3 4 5 6 7 8 9

НОмер нулевого элемента массива: 1

 

 

  1. Ответ на вопрос
    Ответ на вопрос дан Mishka28

    uses crt;

    var

    a:array [1..10] of integer;

    n,i:integer;

    begin

    for i:=1 to 10 do begin

    write ('Введите ',i,' элемент массива: ');readln(a[i]);

    end;

    clrscr; 

    for i:=1 to 10 do write (a[i],' ');

    writeln; 

    i:=0; 

    repeat

    i:=i+1; 

    if a[i]=0 then n:=i else n:=0;

    until (a[i]=0) or (i=10);

    if n<>0 then writeln ('Номер нулевого элемента массива: ',n) else writeln (0);

    readln;

    end.

Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 5 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.