Форум » Массивы, сортировка, работа с файлами » (№ 4116) (А. Кабанов) » Ответить
(№ 4116) (А. Кабанов)
inform_lesson: Добрый день. В чём ошибка при ответе на первый вопрос задачи? const n=1000; var a,i,j,k,sr,p:integer; m:array[1..n] of integer; begin assign(input,'26.txt'); for i:=1 to n do begin readln(a); m:=a; end; for i:=1 to n-1 do for j:=i+1 to n do begin if (m+m[j])mod 2=0 then begin sr:=(m+m[j])div 2; if sr-m<sr-m[j] then k:=sr-m else k:=sr-m[j]; if k=5 then inc(p); end; end; write(p); end.
Ответов - 1
cabanov.alexey: Прочитайте текст в жёлтой рамке ВНИМАТЕЛЬНО
полная версия страницы