Priveee
31.08.2020 14:11

Покемон Видл В IT-Cube имеется бесконечная в обе стороны полоса ширины 1, разбитая на клетки размера 1 x 1. В одной из них находится покемон Видл, который может двигаться из одной клетки в другую (на рисунке Видл обозначен квадратиком).

Его перемещения определяются программой, каждая команда в которой – это одна из трех больших латинских букв: L, R, S. Выполняя команду L, покемон перемещается на одну клетку влево, команду R - на одну клетку вправо, а S - остается в той же самой клетке. Выполнение программы означает последовательное выполнение всех команд, записанных в ней.

Напишите программу, которая определит сколько различных клеток посетит покемон Видл.

Формат входных данных
Программа для покемона – строка из символов L, R, S. Программа состоит не более чем из 10000 команд.

Формат результата
Вывести количество различных клеток, которые посетит покемон Видл, выполняя свою программу.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
daniilshvanik
16.02.2020 15:50

8. Что определяет количество индексов массива?

Количество индексов определяет размерность массива. Если есть только один индекс, то это одномерный массив, два - двумерный и т.д.

9. Запишите имя массива, если он имеет элементы mas[1], mas[2], ...

Обращение к элементам одномерного массива имеет вид имя[индекс], значит, массив имеет имя mas

10. Задавая разные значення элементам массива, можно ли изменить размерность массива?

Нельзя. Размерность массива задается заранее, она определяет, как обращаться к элементам массива, и не зависит от их значений.

0,0(0 оценок)
Ответ:
matuezh
05.09.2021 19:20

Если не видно на скриншоте

Program v1;

var a:array[0..30]of integer;            

i,min,max,n,t:integer;

begin

write('Введите размерность матрицы: '); readln(n);                

randomize;

for i:=1 to n do a[i]:=random(100)-50;                            

write('Значение матрицы: ');                                      

for i:=1 to n do write(a[i]:5); writeln;    

   max := 1;

 min := 1;

 t:=0;

 for i := 1 to n do

 begin

   if a[i] > a[max] then

     max := i

   else

     if a[i] < a[min] then

       min := i;

 end;

 for i := 1 to n do

   t:=a[min]*a[max];

 WriteLn('Среднее арифметическое: ', (a[max] + a[min])/2 ,' ' ,'Произведение максимального элемента на минимальный равно:', t);

end.


Знайти в масиві А(N) max, min елементи і вивестиїх середнє арифметичне і добуток.​
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота