tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Определить, сколько в массиве
Определить, сколько в массиве подряд идущих пар элементов с одинаковым значением.
almaz108
2 26.07.2019 16:20
1
Ответы
silverfinn
07.08.2020 14:48
//Pascal ABC.NET v3.1 сборка 1219
Const
n=5;
Var
ar:array[1..n] of real;
i,k:integer;
begin
randomize;
writeln('Array:');
for i:=1 to n do
begin
ar[i]:=random(3);
write(ar[i]:6);
end;
for i:=1 to n-1 do
if ar[i]=ar[i+1] then k:=k+1;
writeln;
writeln('Res=',k);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
tatu261
09.04.2020 20:18
Python. Дана вещественная матрица размером n х m. Переставляя ее строки и столбцы, добиться того, чтобы наибольший элемент (или один из них) оказался в верхнем левом...
lebedkova81
13.06.2019 01:20
Какое из устройств предназначено для ввода информации? процессор,принтер,клавиатура или память компьютера...
veronikasabrin
13.06.2019 01:20
Определить может ли кирпич имеющий форму прямоугольного параллелепипеда с ребрами a,b,c пройти через круглое отверстие радиусом m...
nasamar
13.06.2019 01:20
Скакой целью люди кодируют информацию?...
sasha1836
13.06.2019 01:20
Вкаком устройстве компьютера производится обработка информации? клавиатура,монитор,внешняя память,процессор....
hihilaim
13.06.2019 01:20
Скорость передачи данных через adsl-соединение равна 64 000 бит/с. через данное соединение файл размером 125 килобайт. определите время передачи файла в секундах....
aksiniaplotniko
13.06.2019 01:20
Персональный компьютер не будет функционировать если: отключить дисковод,отключить оперативную память,отключить мышь или отключить принтер...
gameadventgary
11.11.2020 19:59
уточните Каков объем жесткого диска компьютера к которому вы имеете доступ дома или в школе Сколько страниц текста можно было бы разместить в памяти этого компьютера...
TheMrВлад0сЇк
20.09.2020 12:26
C (десятичная система исч.) = -10.00: Д (десятичная система исч.) = 3.25Выполнить операцию умножения над числами «С» и «Д» в двоичной си-стеме счисленияОперация...
Танюша1234512345
20.09.2020 12:27
Процессор intel core i3 9100f Видеокарта PCI-E 4096Mb ASUS RX 580 Dual OC, Radeon RX 580 ОЗУ 8GB Жесткий диск 1 000gb Друг собрал Пк. Совместимы ли они вместе?...
Популярные вопросы
Определите смещение равновесия в следующих реакциях: 2H2O2(ж)...
3
О лист для «чтения с остановками» по рассказу Ю.Яковлева «А Воробьев...
3
В каждом из приведенных ниже предложений есть слово, выбор которого...
2
І варна.За ание 1. frениеПропаіt отрывок о провелося А Леонова...
2
Лабораторная работа №10 учебник грачев. Измерение выталкивающей...
2
Международная организация проводила в странах Z и Y о совершеннолетних...
2
В прямоугольном треугольнике СОК угол С равен 30°, угол О равен...
2
Як література виховує особистість 8 речень...
2
Установить відповідність між перетворенням енергії що відбувається...
2
Решите задачу, составив уравнение. В одном поезде в 2 раза больше...
2
Const
n=5;
Var
ar:array[1..n] of real;
i,k:integer;
begin
randomize;
writeln('Array:');
for i:=1 to n do
begin
ar[i]:=random(3);
write(ar[i]:6);
end;
for i:=1 to n-1 do
if ar[i]=ar[i+1] then k:=k+1;
writeln;
writeln('Res=',k);
end.