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

Из элементов массива а, состоящего из 25 элементов, сформировать массив d той же размерности по правилу: первые 10 элементов находятся по формуле di=ai+i, остальные - по формуле di=ai-i. (паскаль)

👇
Ответ:
Dinkaakissa20
Dinkaakissa20
12.04.2021

program raf105;

var

 a,d: array[1..25] of integer;

 i: integer;

begin

write('Массив A: ');

for i:=1 to 25 do

begin

 a[i]:= random(35,60);

 write(a[i],' ');

end;

writeln;

write('Массив D: ');

for i:=1 to 25 do

begin

 if i<=10

   then d[i]:=a[i]+i;

 if i>10

   then d[i]:=a[i]-i;

 write(d[i],' ');

end;

end.

PascalABC 3.4.2
4,6(44 оценок)
Открыть все ответы
Ответ:
Дисконет
Дисконет
12.04.2021

1. DaVinci Resolve. С бесплатной программы-видеоредактора DaVinci Resolve вы сможете обрабатывать видео, используя передовые технологии, с которыми работают в Голливуде.

2. Movavi 2021. Простой и понятный видеоредактор Movavi отлично подойдет даже для начинающих, не имеющих опыта видеомонтажа. Помимо банальных операций в Movavi можно использовать различные фильтры (их уже более 160 штук), титры, переходы, стикеры от профессиональных дизайнеров... Все основные функции доступны в бесплатной версии, для расширения функционала предлагают купить версию «Плюс».  

3. Windows Movie Maker 2012. С бесплатным инструментом от компании Microsoft вы сможете нарезать, озвучить и структурировать ваши цифровые видеозаписи. К сожалению, обновлений для программы разработчики больше не выпускают.

4,7(89 оценок)
Ответ:
Нюся5012
Нюся5012
12.04.2021
DIM ch$(26)
FOR i = 1 TO 26
ch$(i) = CHR$(ASC("a") + i - 1)
NEXT

DIM cw(26) AS LONG

PRINT "text:"
INPUT "", s$
DO WHILE s$ <> "*"
s$ = s$ + " "
iw = 0
FOR i = 1 TO LEN(s$)
c$ = MID$(s$, i, 1)
IF iw = 0 AND c$ <> " " THEN
iw = 1
idx = ASC(c$) - ASC("a") + 1
cw(idx) = cw(idx) + 1
ELSEIF iw = 1 AND c$ = " " THEN
iw = 0
END IF
NEXT
INPUT "", s$
LOOP

FOR i = 1 TO 25
m = i
FOR j = i TO 26
IF cw(j) > cw(m) OR (cw(j) = cw(m) AND ch$(j) < ch$(m)) THEN
m = j
END IF
NEXT
IF m <> i THEN
tmp = cw(m)
cw(m) = cw(i)
cw(i) = tmp
tmp$ = ch$(m)
ch$(m) = ch$(i)
ch$(i) = tmp$
END IF
NEXT

FOR i = 1 TO 26
IF cw(i) <> 0 THEN
PRINT ch$(i) + ":"; cw(i)
END IF
NEXT
4,7(62 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ