Предмет: Информатика,
автор: fewquestions88
В паскале:
Найти количество пар элементов в заданном массиве из 10 целых чисел для которых выполнено условие, что a [i] = a [i+2]
tigriza11:
слишком мало данных
достаточно
эммм ну как бы А какой ввод данных? С клавиатуры? из файла? Рандомом?
с клавиатуры
Ответы
Автор ответа:
1
var array1: array [1..10] of integer;
a, i: integer;
begin
a:= 0;
for i:= 1 to 8 do begin
if array[i] = a[i + 2] then a = a + 1;
end;
writeln(a);
end.
Интересные вопросы
Предмет: Алгебра,
автор: sossmyy
Предмет: Английский язык,
автор: gassamira4
Предмет: Русский язык,
автор: salayevelcin7878
Предмет: Математика,
автор: Super463