М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Neznat13
Neznat13
25.11.2020 00:06 •  Информатика

Напишите программу в Паскале, которая заполняет массив из N = 10 элементов случайными числами в диапазоне

[0,20], выводит его на экран, а затем находит индекс

первого элемента, равного введённому числу X.

Программа должна вывести ответ «не найден», если

в массиве таких элементов нет.

Пример:

Массив: 5 16 2 13 3 14 18 13 16 9

Что ищем: 13

A[4] = 13

👇
Ответ:
kamilakruvetka
kamilakruvetka
25.11.2020

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

x,i: integer;

k: boolean;

begin

 k:=False;

 randomize;

 for i:=1 to 10 do

   a[i]:=random(21);

 readln(x);

 for i:=1 to 10 do

   if a[i]=x then

   begin

     x:=i;

     k:=True;

     break;

   end;

 if k then

   writeln('a[',x,']=',a[x])

 else

   writeln('не найдено')

end.

Объяснение:


Напишите программу в Паскале, которая заполняет массив из N = 10 элементов случайными числами в диап
Напишите программу в Паскале, которая заполняет массив из N = 10 элементов случайными числами в диап
4,7(36 оценок)
Открыть все ответы
Ответ:
egortupi
egortupi
25.11.2020

Program Chisla;

Uses Crt;

var p,o,z,c,i:integer;

       n:real;        

 

 

begin

    clrscr;

    write('Введите числа: ');

    p:=0;z:=0;o:=0;c:=0;  

    for i:=1 to 5 do

           begin

               readln(n);

                if (n=0) then z:=z+1; // Нуль не ни положительным ни отрицательным ни целым  

                if ((n mod 2)<>0) and (n>0) then p:=p+1;  

 

                if ((n mod 2)<>0) and (n<0) then o:=o+1; 

               if ((n mod 2)=0) and (n>0) then

                          begin

                               p:=p+1;    

 

                               c:=c+1;   

 

                         end;

if ((n mod 2)=0) and (n<0) then

                          begin

                               o:=o+1;    

                               c:=c+1;   

                        end;

      writeln;

      writeln('Положительных чисел: ',p);

 

      writeln('Отрицательных чисел: ',o);

       writeln('Целых чисел: ',c); 

 

        writeln('Нулей: ',z);   

    readkey;

 

end. 

 

 

4,5(26 оценок)
Ответ:
инкара10
инкара10
25.11.2020

Program Fibonacci;
Uses Crt;
var i, n:integer;
{Итерационный метод вычисления чисел Фибоначчи}
function fib_it(n:integer):integer;
var a,b,c,i:integer;
begin
a:=1;b:=1;
if (n=1) or (n=2) then fib_it:=1
else begin
            for i:=3 to n do 
                 begin
                   c:=a+b
                   a:=b;
                 b:=c; 
               end;  
     fib_it:=c;
   end;  

end;

{main program}
begin
    clrscr;
    write('Введите n: ');
   readln(n);
    for i:=1 to n do write(fib_it(i),' '); 
     readkey;
end.

4,5(4 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ