Регистрация
taniysha35
08.04.2020 20:13
Информатика
Есть ответ 👍

19. составить алгоритм и написать решение на паскале: целое число х сгенерировано в диапазоне от 1 до 5. вывести на экран название соответствующего пальца на руке.

170
225
Посмотреть ответы 2

Ответы на вопрос:

Brauberg898117
Brauberg898117
4,4(51 оценок)
Для pascalabc.net: begin  var t : = random(1,5);   case t of    1: writeln ('мизинец');     2: writeln ('безымянный');     3: writeln ('средний');     4: writeln ('указательный');     5: writeln ('большой');   end; end.
marinamih
marinamih
4,6(47 оценок)
Var a,max,max2: real; i: integer; begin   writeln('введите скорость');     for i: =1 to 7 do         begin             readln(a);                 if a> max then

                          if max> max2 then

                                max2: =a

                          else

                                max: =a;

                end;

        writeln(max: 4: 2,' ',max2: 4: 2);

end.

            или через массив

в массив заносим 2 элемента. в цикле вводим остальные элементы. в массиве находим минимальный и, если введенный следующий элемент (b) больше минимального массива, то записываем b в массив на место наименьшего.

в результате в массиве два максимальных эл-та

 

var

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

n,i,min,j,m,b: integer;

begin

        readln(n);

        readln(a[1],a[2]);

        for i: =3 to n do

                begin

                    readln(b); min: =a[1]; m: =1;

                                        for j: =1 to 2 do

                                                if a[j]< min then

                                                begin

                                                      min: =a[j];

                                                      m: =j;

                                                end;

                                        if b> min then

                                              a[m]: =b;

                    end;

                for i: =1 to 2 do

                        writeln(a[i]);

        end.

Популярно: Информатика