а) 11
б) 1
в) 0
Вооот... Надо минимум 20 символов, поэтому позволь мне сказать тебе, что ты классный чел)
<span>Подберите примеры ситуаций в которых информация:
А)собирается - пипетка в граф редакторе
Б)копируется - копируем файл
В)обрабатывается - смержить слои в графическом редакторе
г)передаётся - отослать имейл
д)упрощается - сжатие изображения
е)принимается - получить почту
Ж)создаётся - ввод текста
З)разрущаетс - удаление файла
И)запоминается - сохранение файла
к)делится на части - разархивировать многофайловый архив
л)измеряется - посмотреть свойства файла
и)ищется
</span>- найти файл на компьютере
Решаем рекурсивно, можно и другими способами.Ответ 87
Const nx = 50;
Var A:array[1..nx]of integer; i,m,s,k:integer;
Begin
WriteLn('Введи количество элементов массива'); Read(m);
For i:= 1 to m do begin
A[i]:= random(50)-5;
if A[i]> 12 then begin
s:= s + A[i];k:= k + 1;
write(A[i]:3);end;end;
writeln;
write('s = ',s:3,'k = ', k);
<span>end.</span>
<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=10;
var a:=ArrRandom(n,1,99); a.Println;
var d:=100;
var i1,i2:integer;
for var i:=0 to n-2 do
for var j:=i+1 to n-1 do begin
var dd:=abs(a[i]-a[j]);
if dd<d then begin d:=dd; i1:=i; i2:=j end
end;
Writeln('Элементы ',i1+1,', ',i2+1)
end.
<u>Пример</u>
47 55 18 58 16 77 43 95 13 86
Элементы 3, 5