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

Pascal 1. Массив из N элементов состоит из нулей и единиц (заполнен случайным образом). Подсчитать количество 0 и количество 1.
2. Дан одномерный массив целых чисел. Все элементы массива, дающие в остатке от деления на 3 число 1, заменить на 1.
3. Дан одномерный массив. Найти минимальный элемент из нечетных элементов, стоящих на четных номерах.
4. Сформировать массив из промежутка натуральных чисел от N до М. Определить сколько элементов равны среднеарифметическому чисел N и М
5. Даны натуральные числа M и N и одномерный массив. Определить сумму элементов равных заданным числам.

👇
Ответ:
KarinaNedilko0564
KarinaNedilko0564
22.02.2022

Объяснение:

грорлршпомгрпгрш

4,5(77 оценок)
Открыть все ответы
Ответ:
09876нг8678
09876нг8678
22.02.2022
Const 
s1=' x.';
s2='*[email protected]#%&)(`~^\/}{][:;><? ,.'; 
var a:string; c:char; i:integer;
begin 
Writeln ('Hello! What do you want from me? It is that what I can:');
writeln('1)translate message encrypted by me (enter 1) or encrypt message inputted by me (enter 2)');
readln (c); 
if c = '2' then 
 begin
 writeln('enter your message'); 
 readln(a); 
 for i := 1 to length(a) do 
  if pos(a[i],s1)>0 then a[i]:=s2[pos(a[i],s1)]
 end
else // if c = '1' then
 begin
 writeln('enter my message'); 
 readln(a);
 for i := 1 to length(a) do 
  if pos(a[i],s2)>0 then a[i]:=s1[pos(a[i],s2)]
 end;
writeln(a);
end.

Пример:
Hello! What do you want from me? It is that what I can:
1)translate message encrypted by me (enter 1) or encrypt message inputted by me (enter 2)
2
enter your message
privet
/{&;![
4,7(93 оценок)
Ответ:
MrKoopo
MrKoopo
22.02.2022
Ни для кого не секрет, что в геймерских клавиатурах самыми часто используемыми клавишами являются W,A,S,D. Иногда бывало так, что именно эти клавиши выходили из строя со временем и клавиатуру приходилось выбрасывать. В случае с A4Tech Bloody B188, В328, В418 было использовано необычное решение — ключевые кнопки получили механические переключатели Light Strike со скоростью отклика 0,2 мс. Полный ход клавиш равен 2,2 мм, ход до срабатывания — 1,5 мм. По заявлению производителя, новые переключатели срабатывают на 30% быстрее, чем обычные механические переключатели.
4,6(63 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ