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

Как написать игру "очко" в кумире? ​

Показать ответ
Ответ:
aryuna2003
aryuna2003
03.07.2022 23:18

Для записи алгоритмов, работающих с большими объемами информации, в алгоритмическом языке существуют специальные табличные величины (или просто таблицы). Наиболее часто встречаются линейные (из одной строки или одного столбца)  и прямоугольные таблицы (несколько строк и несколько столбцов)

Примеры линейных таблиц: всевозможные списки, ряд членов арифметической и геометрической прогрессий и т. д.    Линейные таблицы задаются описанием типа, имени таблицы с указанием её первого и последнего элементов.

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

0,0(0 оценок)
Ответ:
annadubinkina
annadubinkina
19.09.2021 13:52

Объяснение:

const

 nm=100;

var

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

 i,k,l,n,buf:  integer;

begin

 randomize;

 write('vvedite n ');

 readln(n);

 writeln('ishodniy massiv:');

 for i:=1 to n do

 begin

   a[i]:=random(99)+1;

   write(a[i],' ');

 end;

 writeln;

 write('vvedite k,l (k<l) : ');

 readln(k,l);

for i:=k to (l-k)div 2+k do

begin

buf:=a[k];

a[k]:=a[l];

a[l]:=buf;

 k:=k+1;  

 l:=l-1;

end;

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

readln;

end.

const

 nm=100;

var

 a,b: array[1..nm] of integer;

 i,n:  integer;

begin

 randomize;

 write('vvedite n>10 ');

 readln(n);

 writeln('ishodniy massiv a:');

 for i:=1 to n do

 begin

   a[i]:=random(99)+1;

   write(a[i],' ');

 end;

 writeln;

 for i:=1 to n do

if i<=10 then b[i]:=a[i]+i

else b[i]:=a[i]-i;

writeln('massiv b:');    

  for i:=1 to n do write(b[i],' ');

 readln;

end.

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