В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
AjdanaLife
AjdanaLife
28.01.2023 20:26 •  Информатика

Типовые на паскале! массивы дано: n - целое семизначное число, вводится пользователем. проверка на семизначность обязательна! выполнить: записать в массив a[i] цифры этого числа. 2. дано: a[i] – массив целых чисел, состоящий из 5 элементов. элементы массива вводятся пользователем из диапазона [-10,10]. проверка ввода обязательна! выполнить: вывести на экран сумму неположительных и произведение неотрицательных элементов. 3. дано: a[i] – массив целых чисел, состоящий из 5 элементов. элементы массива вводятся пользователем. выполнить: вывести на экран среднее арифметическое элементов. 4. дано: a[i] - массив вещественных чисел, состоящий из элементов, выбранных случайным образом из диапазона [0; 5] (в вещественном числе 3 знака после запятой). выполнить: b[i] - отсортировать массив a[i] по возрастанию. c[i] - отсортировать массив a[i] по убыванию. 5. дано 10 целых чисел. выполнить: вычислить разницу между максимальным и минимальным из них. 6. дано: a - массив вещественных чисел, заданных случайным образом из диапазона от 2 до 12, с точностью до 2 знаков после запятой. размер массива: n=17. найти: максимальный элемент из его элементов с нечетными номерами. буду невероятно !

Показать ответ
Ответ:
Lika39211
Lika39211
30.07.2020 18:27
1)
USES CRT;
VAR A:array[1..100] of Longint;   
s:integer;   
x,i:Longint;
BEGIN
CLRSCR;

      Repeat         
         Writeln('Введите 7-ми значное число');         
         Readln(x);         
         i:=x;         
         s:=0; 
        
         while i>0 do           
            begin             
               i:=i div 10;               
               s:=s+1;           
            end;       
  
        if s > 7 then Writeln('Вы ввели число больше');         
        if s < 7 then Writeln('Вы ввели число меньше');

         Writeln;
      until s=7;

      for i:=1 to 7 do       
         begin           
            A[i]:=x mod 10;           
            x:=x div 10;         
         end;

      for i:=1 to 7 do         
         Write(A[i],' ');

READLN;
END.
Типовые на паскале! массивы дано: n - целое семизначное число, вводится пользователем. проверка на с
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота